Dim Test As String
Dim BadHex As Boolean
Test = "0Dabcde12345678"
For I = 0 To Test.Length - 1
If Asc(Test.ToUpperCase.SubString2(I, I + 1)) > 70 OR Asc(Test.ToUpperCase.SubString2(I, I + 1)) < 48 Then
BadHex = True
End If
Next
If BadHex = True Then
Msgbox("Bad Hex number", "")
Else
Msgbox("OK", "")
End If