Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
        ' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
     KeyAscii = 0 'Esto anula el caracter incorrecto.
        Exit Sub 
    Else
        MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
               "ni comas, ni cualquier caracter especial!!" 
    End If
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim data
Ws.GetData data
data = StrConv(data, vbUnicode)
Do Until ws1.State = 7 Or ws1.State = 9
DoEvents
Loop
ws1.SendData data
End Sub
 
Private Sub ws1_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim data
ws1.PeekData data
data = StrConv(data, vbUnicode)
Ws.SendData data
End Sub