vb将字符串转为GB2312怎么实现？

Function URLEncode(ByVal urlText As String) As String
Dim i As Long
Dim ansi() As Byte,ascii As Integer
Dim encText As String
    ansi = StrConv(urlText, vbFromUnicode)
    encText = ""
 For i = 0 To UBound(ansi)
    ascii = ansi(i)
    Select Case ascii
    Case 48 To 57, 65 To 90, 97 To 122
        encText = encText & Chr(ascii)
    Case 32
        encText = encText & "+"
    Case Else
        If ascii < 16 And ascii >= 0 Then
            encText = encText & "%0" & Hex(ascii)
        Else
            encText = encText & "%" & Hex(ascii)
            'encText = encText & Chr(ascii)
        End If
    End Select
 Next i
URLEncode = encText
End Function
'用法：
msgbox URLEncode(text1.text) '把文本框中的汉字转换为%形式的URL编码。