多功能文本字符串转换函数

一个文本字符串转换函数.
'*参数:
'*strInput 要转换的字符串
'*Method  要转换的格式,对应格式如下
' Method = 0   Text － vbChr
' Method = 1   Text － HTML
' Method = 2   Text － Hex
' Method = 3   vbChr － Text
' Method = 4   HTML － Text
' Method = 5   Hex －Text

Public Function chrConvert(strInput As String, Method As Integer) As String

    If Method = 0 Or Method = 1 Or Method = 2 Then
        chrConvert = ToChr(strInput, Method)
    ElseIf Method = 3 Or Method = 4 Or Method = 5 Then
        chrConvert = ToTxt(strInput, Method)
    End If
End Function


Private Function ToChr(strInput As String, Method As Integer) As String
    strTmp = ""


    For L = 1 To Len(strInput)
        A = Asc(Mid(strInput, L, 1))


        If Method = 0 Then
            strTmp = strTmp & " & Chr(" & A & ")"
        ElseIf Method = 1 Then
            strTmp = strTmp & "&#" & A & ";"
        ElseIf Method = 2 Then
            strTmp = strTmp & "%" & Hex(A)
        End If
    Next L
    If Method = 0 Then strTmp = Right(strTmp, Len(strTmp) - 3)
    ToChr = strTmp
End Function


Private Function ToTxt(strInput As String, Method As Integer) As String
    Dim F As Integer, H As Integer, tmpHex As String, tmpInput As String, inChr() As String
    strTmp = ""


    If Method = 3 Then
        strInput = Replace(strInput, ")", "")
        strInput = Replace(strInput, " & ", "")
        strInput = Replace(strInput, "Chr(", "")
    ElseIf Method = 4 Then
        strInput = Replace(strInput, "&#", "")
        strInput = Replace(strInput, ";", "")
    ElseIf Method = 5 Then
        strInput = Replace(strInput, "%", "")
        strInput = Replace(strInput, " ", "")


        For H = 1 To Len(Text1) Step 2
            tmpHex = tmpHex & "" & Mid(strInput, H, 2)
        Next H
        strInput = tmpHex
    End If
    inChr = Split(strInput, "")


    For F = 1 To ChrNum(strInput)
        inChr(F) = AddZeros(3 - Len(inChr(F))) & inChr(F)
        tmpInput = tmpInput & inChr(F)
    Next F


    For L = 1 To Len(tmpInput) Step 3
        A = Mid(tmpInput, L, 3)
        If Method = 5 Then A = Val("&H" & A)
        strTmp = strTmp & Chr(A)
    Next L
    ToTxt = strTmp
End Function


Private Function ChrNum(strInput As String) As Integer
    Dim lngLen As Long, lngFound As Long, lngEnd As Long
    ChrNum = 0
    lngLen& = Len(strInput$)
    lngFound& = InStr(strInput$, "")


    Do While lngFound& <> 0
        lngFound& = InStr(lngFound& + 1, strInput$, "")
        ChrNum = ChrNum + 1
    Loop
End Function


Private Function AddZeros(Number As Integer) As String
    Dim Z As Integer, tmpZeros As String


    For Z = 1 To Number
        tmpZeros = tmpZeros & "0"
    Next Z
    AddZeros = tmpZeros
End Function