by Sumit Katyal (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 19th September 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Tells the ASCII Value of the Alphabet/number/Etc
API Declarations
Take one Command Button,RichtextBox,TextBox.
VBcoders
//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