Blog

Actually it’s easy enough to convert Hexadecimal to string with Visual Basic 6.0

Sebenarnya sangat mudah untuk melakukan convert dari Hexadecimal ke string dengan Visual Basic 6.0

Use this Function:

Gunakan Function ini:


Function HesToString(HexString As String) As String
Dim Hexs() As String
Dim ascc As Integer
Dim result As String
Hexs = Split(HexString, " ")
If UBound(Hexs) > 0 Then
For i = 0 To UBound(Hexs)
If Asc(Hexs(i)) < 32 Then Hexs(i) = "."
ascc = CInt(Val("&H" & Hexs(i)))
result = result & Chr(ascc)
Next i
HesToString = result
Else
HesToString = "Gunakan pemisah spasi"
Exit Function
End If
End Function