End If

If Right(Text1(Index), 1) = \ Text1(Index) = Left(Text1(Index), 1) End If End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 45 _ And KeyAscii <> 8 Then KeyAscii = 0 End If

End Sub

33