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)