• Home
 · 
• String Manipulation
 · 
• Tells the ASCII Value of the Alphabet/number/Etc

Tells the ASCII Value of the Alphabet/number/Etc

Tells the ASCII Value of the Alphabet/number/Etc

API Declarations


Take one Command Button,RichtextBox,TextBox.




Rate Tells the ASCII Value of the Alphabet/number/Etc

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

//in text box and when the user click on command button the result will be
//shown in richtextbox.

Private Sub Command1_Click()
Dim TestValues As String, tmpchar As String, Answer As String
For I = 1 To Len(text1.Text)
TestValues = Asc(Mid(text1, I, 1))
Answer = InStr(1, TestValues, tmpchar)
a = Mid(text1, I, 1)
Richtextbox.Text = Richtextbox.Text & Space(1) & "The ASCII Value of" & Space(1) & a & Space(1) & "is" & Space(1) & TestValues & vbCrLf
Next I
End Sub