Private Sub Command1_Click()Dim i%, l%, S%, N%, T%, S1 l = Len(Text1)For i = 1 To l S1 = Asc(Mid(Text1, i, 1))Select Case S1 Case 48 To 57 N = N + 1 Case 65 To 90, 97 To 122 S = S + 1 Case Else T = T + 1 End Select Next Print N Print...