s = "ERROR:Divisor must not be zero!"
flag = False : m = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
If Not flag Then
m = m + 1 : flag = True
End If
Else
flag = False
Next i
Text1.Text=Str(m)