by Shado\x/arrioR (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 31st March 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Converts a Ascii text to Hexadecimal
For iye = 1 To Len(asciitext)
le = Mid(asciitext, iye, 1)
e = Asc(le)
swaR = swaR & Hex$(AscW(Chr$(e)))
Next iye
ascii2hex = swaR
End Function