Public Function ascg(smsg As String) As String
    Dim si, sb As Integer
    Dim stmp As Integer
    Dim stemp As String
    sb = Len(smsg)
    ascg = ""
    For si = 1 To sb
     stmp = AscW(Mid(smsg, si, 1))
     If Abs(stmp) < 127 Then
        stemp = "00" & Hex(stmp)
     Else
        stemp = Hex(stmp)
     End If
     ascg = ascg & stemp
    Next si
    ascg = Trim(ascg)
 End Function