• Home
 · 
• String Manipulation
 · 
• Convert an entire sentance to ASC() code. nice for message boxes etc. Easy

Convert an entire sentance to ASC() code. nice for message boxes etc. Easy

Convert an entire sentance to ASC() code. nice for message boxes etc. Easy

API Declarations


Create a form with a button and call convert
eg....
Sub button1_click
convert
end sub



Rate Convert an entire sentance to ASC() code. nice for message boxes etc. Easy

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'This Code was written by Jack Jarvis
'Any questions or comments please mail me [email protected]
Dim b As Integer
Dim c, d As String
Dim a As String
a = InputBox("Enter your Sentance", "DO IT", "HERE")
b = Len(a)
For c = 1 To b
d = Mid(a, c, 1)
d = "& Chr(" & Asc(d) & ") "
convert = convert & d
Next c
convert = "You Code you need is " & Mid(convert, 2, 1000)
InputBox "Here is your code", "DO IT", convert
End Function