i want my code to become faster

[nokmaster]

hi, how to become my code faster?

this is my code:

Private Sub cmdFeed_Click()
Dim ln As Integer
For ln = 1 To Len(txtMobileNumber.Text)
Select Case Mid(txtMobileNumber.Text, ln, 1)
Case "0"
thex ("1F 00 10 D1 00 06 00 01 46 00 01 0A 03 97")
pause (100)
thex ("1F 00 10 D1 00 06 00 01 47 00 01 0C 04 97")
pause (100)
Case "1"
thex ("1F 00 10 D1 00 06 00 01 46 00 01 01 03 9C")
pause (100)
thex ("1F 00 10 D1 00 06 00 01 47 00 01 0C 04 97")
pause (100)
Case "2"
thex ("1F 00 10 D1 00 06 00 01 46 00 01 02 03 9F")
pause (100)
thex ("1F 00 10 D1 00 06 00 01 47 00 01 0C 04 97")
pause (100)
Case "3"
thex ("1F 00 10 D1 00 06 00 01 46 00 01 03 03 9E")
pause (100)
thex ("1F 00 10 D1 00 06 00 01 47 00 01 0C 04 97")
pause (100)
End Select
Next ln
End Sub