Can someone help me

[ngskicker]

I have some vb code, i want to convert to auto it, but i can imagine how to do it, can someone help me please

this my vb

CODE

Attribute VB_Name = "Module1"

Option Explicit

Public Function HextoAscii(inputstr As String) As String 'fungsi untuk mengubah hexa ke ascii

Dim spilter As Variant, i As Integer, finnal As String

If InStr(1, inputstr, " ") <> 0 Then

spilter = Split(inputstr, " ")

For i = 0 To UBound(spilter)

finnal = finnal & Chr(Val("&H" & spilter(i)))

Next i

HextoAscii = finnal

ElseIf Len(inputstr) = 2 Then

finnal = Chr(Val("&H" & inputstr))

HextoAscii = finnal

End If

End Function

Public Function Asciitohex(inputstr As String) As String 'fungsi untuk mengubah assci ke hexa

On Error Resume Next

Dim spilter As Variant, i As Integer, finnal As String

For i = 1 To Len(inputstr)

finnal = finnal & Hex(Asc(Mid(inputstr, i, 1))) & " "

Next i

Asciitohex = Mid(finnal, 1, Len(finnal) - 1)

End Function

[MrMitchell]

Have you done any research at all to at least get you started? You should do that then post what you come up with...

What is the purpose of your code; what does it need to do?

[BrettF]

Whats wrong with this?

$hex = 0x31; Number 1 key (ASII = 49)

;Convert from Hex to ASCII
$asc = Asc(Chr(0x31))
;Convert from ASCII to HEX
$hex = Hex($asc, 2)

;Show it
MsgBox (0, "ASCII representation of the hex value for #1", $Asc)
MsgBox (0, "Hex representation of the ASCII value for #1", $hex)

[Andreik]

Func AscToHex($STR)
    Local $FINAL = ""
    For $INDEX = 1 To StringLen($STR)
        $FINAL &= Hex(Asc(StringMid($STR,$INDEX,1))) & " "
    Next
    Return StringTrimRight($FINAL,1)
EndFunc

You can write first function just looking at this. Good luck.