请问VB.NET 中如何判断一个字符是全角还是半角？

有没有哪个类有现成的方法??
---------------------------------------------------------------

Dim s As String = Me.TextBox1.Text.Trim
Dim count As Integer = System.Text.UnicodeEncoding.Unicode.GetByteCount(s)

MessageBox.Show(count.ToString)
如果count=1就是半角，为2就是全角！