Converting Hexadecimal to String / Text with Visual Basic 6.0

21.35, Posted by hermawan, 2 Comments

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 VB 6

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)) < style="min-height: 1px; ">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