• Home
 · 
• String Manipulation
 · 
• Count number of lines/returns in a textbox

Count number of lines/returns in a textbox

Simply counts the number of lines in a textbox (the textbox should be multiline=true, otherwise it is pretty useless). Put this in a module so it can be reused.

Inputs
USAGE--countLines(the textbox) EXAMPLE--countLines(text1)

Returns
Returns the number of lines in a textbox.

Rate Count number of lines/returns in a textbox

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Public Function countLines(textBox As textBox) As Long
 Dim A%, B$
 A% = 1
 B$ = textBox.text
 Do While InStr(B$, Chr$(13))
  A% = A% + 1
  B$ = Mid$(B$, InStr(B$, Chr$(13)) + 1)
 Loop
 countLines = CStr(A%)
End Function