I have been unable to use the following code in the matter for which it is designed. A user will input a 5 character string. If the first character is a letter then the input is a HCPCS code. If the first character is a letter then it is a CPT Code. This determination is necessary for the next step which is a Vlookup based on different arrays dependent on the type of code it is. Any help as to what the problem is, how to correct it... would be much appreciated.

Sub test()

    Dim valid As Boolean, uCPT As String, testValue As String

    valid = False
    Do Until valid = True
        uCPT = Application.InputBox(prompt:="Enter CPT/HCPC Code for Line:  X", Title:="CPT/HCPC Code Line X", Left:=300, Top:=250, Type:=2)
        If uCPT <> Empty And uCPT <> "False" Then
            valid = True
        End If
    Loop
    ActiveWorkbook.Sheets("Sheet1").Range("F2").Value = UCase(uCPT)
    
    testValue = Val(Left(uCPT, 1))
    
    MsgBox (testValue)
    
    If IsNumeric(testValue) = "False" Then
        MsgBox ("CPT/Professional")
    Else
        MsgBox ("HCPC/HCPCS")
    End If

End Sub