Blog

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