El foro está para preguntar y sacarse las dudas no para que te hagan la tarea ni te enseñen a programar.
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ú
Sub ReplaceNoAscii(StrSpec As String)
Dim i%
For i = 1 To 255
If (i > vbKeyA And i < vbKeyZ) And _
(i > 97 And i < 122) Then
StrSpec = Replace$(StrSpec, Chr$(i), "[" & i & "]")
End if
Next
End Sub
Main ' VUELVE AL PROCEDIMIENTO PRINCIPAL