HEX и текст - как отличить

69 6E 20 6D 73 34 39

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For i = 1 To Len(TextBox1.Text)
            TextBox2.Text = TextBox2.Text & Convert.ToString(Convert.ToInt32(Asc(Mid(TextBox1.Text, i, 1))), 16) & " " & vbCrLf
        Next
    End Sub
End Class

   Sub Main()
 
        Dim str As String = BitConverter.ToString(Text.Encoding.Default.GetBytes(TextBox1.Text)
        Dim b As Boolean = IsHex(Str)
 
    End Sub
 
    Private Function IsHex(ByVal patten As String) As Boolean
        Dim regex As New Text.RegularExpressions.Regex("^#?(([a-f0-9]){2}(-?|:?| ?))+$", Text.RegularExpressions.RegexOptions.IgnoreCase)
        Return regex.IsMatch(patten)
    End Function

GetBytes(TextBox1.Text)

BitConverter.ToString(Text.Encoding.Default.GetBytes(TextBox1.Text))

 Dim regex As New Text.RegularExpressions.Regex

Function IsHexString(ByVal str As String) As Boolean
    Try
        Dim num As Long = Long.Parse(str, Globalization.NumberStyles.HexNumber)
        Return True
    Catch ex As Exception
        Return False
    End Try
End Function

Function IsHexString(ByVal str As String) As Boolean
    Return Long.TryParse(str, Globalization.NumberStyles.HexNumber)
End Function

    Function IsHexString(ByVal str As String) As Boolean
        Dim out As Long
        Return Long.TryParse(str, Globalization.NumberStyles.HexNumber, Nothing, out)
    End Function

    Function IsHexString2(ByVal str As String) As Boolean
        Return str.All(Function(c) IsHex(c))
    End Function
 
 
    Public Function IsHex(ByVal c As Char) As Boolean
        c = Char.ToLower(c)
        If (Char.IsDigit(c) OrElse (c >= "a" AndAlso c <= "f")) Then
            Return True
        Else
            Return False
        End If
    End Function

  Function IsHexString(ByVal str As String) As Boolean
        Dim out As Long
        Return Long.TryParse(str, Globalization.NumberStyles.HexNumber, Nothing, out)
    End Function