vb stringlength

[saro_gn]

hi

i want code for vb find string length with out len function.

by,
saravana.

[siriusb]

Here's my try:

Dim strtemp As String, x As String
Dim i As Integer

strtemp = InputBox("Enter string here")

Do
    i = i + 1
    x = Mid(strtemp, i, 1)
    DoEvents
Loop While x <> ""

MsgBox i - 1

[siriusb]

Here's a slightly modified version:

On Error Resume Next

Dim strtemp As String, x As String
Dim i As Integer

strtemp = InputBox("Enter string here")

Do
    i = i + 1
    x = ""
    x = Mid(strtemp, i, 1)
Loop While x <> ""

MsgBox i - 1