Hi

Sure

Private Sub CommandButton1_Click()
Dim S As String
Dim L As Long
S = Me.TextBox1.Text
For L = 1 To Len(S)
MsgBox Asc(Mid$(S, L, 1))
Next
End Sub


HTH. Best wishes Harald

"Louise" skrev i melding
...
Is there anyway of looping through each character in a
text box to compare the ascii number with something else?