muchas gracias, espero que les haya gustado!
a esperar la proxima version!
saludos
a esperar la proxima version!
saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command1_Click()
Dim i
Dim valor As String
Dim sAscii As String
sAscii = ""
For i = 1 To Len(Text1.Text)
sAscii = sAscii & "," + CStr(Asc(Mid(Text1.Text, i, 1)))
Next
valor = Len(sAscii)
Text2.Text = Right(sAscii, valor - 1)
End Sub