vb6与vb.net中：Len(strConv(str,vbUnicode))的有关问题

vb6与vb.net中：Len(strConv(str,vbUnicode))的问题。
大家好，希望大家帮我解决一下，谢谢。

VB代码：

a1 = LenB(StrConv("c", vbFromUnicode))

b1 = LenB(StrConv("c", vbUnicode))

结果：
a1=1
b1=4
如果把VB6.0     b1 = LenB(StrConv("c", vbUnicode)) 这句代码改写成.Net应怎么改写？
------解决方案--------------------

Imports System.Text


Module Module1


    Sub Main()

        Dim a As Encoding = Encoding.ASCII

        Dim u As Encoding = Encoding.Unicode


        Debug.Print(u.GetByteCount("c"))


        Dim a1 As Integer = a.GetByteCount("c")

        Debug.Print(a1)


        Dim b1 As Integer = u.GetByteCount(a.GetChars(u.GetBytes("c")))

        Debug.Print(b1)

    End Sub


End Module