Add text1 and txtout and a command button:
VB Code:
Option Explicit Dim x As Integer Dim z As Integer Private Sub Command1_Click() x = Len(Text1.Text) For z = 1 To x txtout.Text = txtout.Text & Asc(Mid(Text1.Text, z, 1)) & " " Next z End Sub Private Sub Form_Load() Text1.Text = "" txtout.Text = "" End Sub




Reply With Quote