Подсчет количества строк и символов в TextBox - VB

Формулировка задачи:

Помогите решить такую задачу:

Есть текстовое поле, т.е TextBox со свойствами: Multiline = True ScrollBars = 2-Вертикаль Нужно сделать подсчет строк и символов в строке.

Мой исходник с моим решением:

                    Листинг программы
                
 
                        
                          
                    
' Подсчет строк 
Public Function Strok() As Long
Strok = UBound(Split(TextBox.Text, vbNewLine)) + 1
End Function
 
' Подсчет символов
Public Function Simvols() As Long
Simvols = Len(TextBox.Text)
End Function
 
'Вывод происходит в Label:
Label1.Caption = "Кол-во строк:" & " " & Strok & " " & "Кол-во символов: " & Simvols

Показ кол-ва строк происходит при нажатие кнопки Enter, но мне бы хотелось сделать так чтобы дойдя до конца строки текстового поля он автоматически переходил на новую строку, и автоматически прибавлял к количеству 1 строку. А то так он показывает например: на самом деле написано 2 строки, а он в результате выводит 1 строку.

Решение задачи: «Подсчет количества строк и символов в TextBox»

textual
                            Листинг программы 
                        
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long