如何将十六进制值的ascii字符串读入字节数组?

Public Shared Function HexToBytes(ByVal s As String) As Byte()
    Dim bytes As String() = s.Split(" "c)
    Dim retval(bytes.Length - 1) As Byte
    For ix As Integer = 0 To bytes.Length - 1
        retval(ix) = Byte.Parse(bytes(ix), System.Globalization.NumberStyles.HexNumber)
    Next
    Return retval
End Function