• Home
 · 
• VB function enhancement
 · 
• Text to ASCII Code function

Text to ASCII Code function

Function to convert plain text to ASCII code.

Rate Text to ASCII Code function

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Function ASCIICode(str)
    Dim strOut, i
    strOut = ""
    For i = 1 To Len(str)
        strOut = strOut & "&#" & ASC(Mid(str, i, 1)) & ";"
    Next
    ASCIICode = strOut
End function