Kullanıcının girdiği büyük bir sayı içinde, eğer HARF varsa burada onu uyarabiliriz


Dim a As Integer, b As Integer, c As String
a = Len(Text1.Text)
For b = 1 To a
c = Mid(Text1.Text, b, 1)
Select Case c
Case "a" To "z"
MsgBox "Girdiğiniz sayı içinde harf var",vbcritical, "Dikkat !"
End Select