MsgBox Asc(vbCr) ' => 13
MsgBox Asc(vbNewLine) ' => 13

While InStr(str, "..")
str = Replace$(str, "..", vbNullString)
Wend

Public Function Is_NumberT(ByRef Str As String) As Boolean
On Error GoTo err
        Str = Str + 0
        Is_NumberT = True
        Exit Function
err:
End Function

Public Function Is_NumberT(ByRef Str As String) As Boolean
On Error GoTo err
        Str = Str + 0
        Is_NumberT = True
        Exit Function
err:
End Function
 
 

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
    If MsgBox("¿Esta seguro que desea salir?", vbQuestion + vbYesNo, Form1.Caption) = vbYes Then End
End If
End Sub