Public Function IsHex(ByVal Val As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(Val, "\A\b[0-9a-fA-F]+\b\Z")
End Function
Public Sub IsHex(ByVal Val As String)
MessageBox.Show(If(System.Text.RegularExpressions.Regex.IsMatch(Val, "\A\b[0-9a-fA-F]+\b\Z"), "Good", "Wrong Input"))
End Sub

