Private Sub Command1_Click() |
Dim s As String , i%, m As String , n% |
s = Text1 |
n = 0 |
For i = 1 To Len(s) |
m = Mid(s, i, 1) |
If m >= "a" And m <= "z" Then |
n = n + 1 |
End If |
Next i |
Text2 = n |
End Sub |
Private Sub Command2_Click() |
End |
End Sub |