Shell("cmd.exe"),vbNormalFocus
Shell("command"),vbNormalFocus
Dim enascii As StringFor i = 1 To Len(Text1.text)enascii = enascii & Format(Asc(Mid(Text1.Text, i, 1)))Next i
Label1.Caption = Asc(Text1.Text)