懂vb的DX们，帮个小忙，我很急

Question

我今天下午要出来一套方案。但是其中有2个函数是要放到asp里的，我用delphi写好了。
但是我不懂vb，现在我在别的单位联合开发，手头没有资料，BB没装msdn，所以只好拜托大家帮我改成vb的好么？
我把源代码方上来，很简单的，就是妈的没有资料，真烦人，拜托了，我真的很急。
{将一个字符串转变成16进制的形式}
function TurnAnsiStringToHex(strS: string): string;
var intI, intHex: Integer;
begin
  Result := '';
  for intI := 1 to Length(strS) do
  begin
    intHex := Integer(strS[intI]);
    Result := Result + Format('%.2x', [intHex]);
  end;
end;{将一个16进制形式的字符串转变成真实的形式}
function TurnHexToAnsiString(strS: string): string;
var intI, intHex: Integer;
    strHex: string;
begin
  Result := '';
  intI := 1;
  while (intI < Length(strS)) do
  begin
    strHex := '$' + Copy(strS, intI, 2);
    intHex := StrToInt(strHex);
    Result := Result + Char(intHex);
    intI := intI + 2;
  end;
end;

Answer 1

hex(asc("a"))=61
chr(&h61)="a"

Answer 2

Public Function asc2hex(str As String) As String
    Dim p As Integer
    For p = 1 To Len(str)
        asc2hex = asc2hex & Right$("00" & Hex$(Asc(Mid$(str, p, 1))), 2)
    Next p
End Function
Public Function hex2asc(str As String) As String
    Dim p As Integer
    For p = 1 To Len(str) Step 2
        hex2asc = hex2asc & Chr$(CInt("&H" & Mid$(str, p, 2)))
    Next p
End Function

Answer 3

如果有汉字那么用ascw代替asc,chrw代替chr

Answer 4

你最好举例讲一下这两个函数的作用，比如说输入什么，输出是什么。帮你改写了一下，但是对Delphi不是很熟，未必一定正确。Function TurnAnsiStringToHex(Byval strS As String) As String  Dim intI, intHex As Integer
  Dim Result As String  Result = ''
  For intI = 1 to Len(strS)
    intHex = Asc(Mid(strS,intI,1)
    Result = Result + Trim(Hex(intHex))
  Next
  TurnAnsiStringToHex=Result
End Function'将一个16进制形式的字符串转变成真实的形式
Function TurnHexToAnsiString(ByVal strS As String) As String  Dim intI, intHex As Integer
  Dim strHex As String
  Dim Result As String  Result = ''
  intI = 1
  While (intI < Len(strS))
    strHex = '&H' + Mid(strS, intI, 2)
    intHex = Val(strHex)
    Result = Result + Chr(intHex)
    intI = intI + 2
  Wend
End Function

Answer 5

Function TurnAnsiStringToHex(strS As String) As String
    Dim intI As Integer, intHex As Integer
    For intI = 1 To Length(strS)
        intHex = Asc(Mid(strS, intI, 1))
        TurnAnsiStringToHex = TurnAnsiStringToHex + Trim(Hex(intHex))
    Next intI
End FunctionFunction TurnHexToAnsiString(strS As String) As String
    Dim intI As Integer, intHex As Integer
    Dim strHex As String
    intI = 1
    While (intI < Length(strS))
        strHex = H(Mid(strS, intI, 2))
        intHex = Val(strHex)
        TurnHexToAnsiString = TurnHexToAnsiString + Chr(intHex)
        intI = intI + 2
  Wend
End Function