galera vlw pela ajuda  vo  tentar  usar se dercerto e aviso brigadao

galera vlw pela ajuda  vo  tentar  usar se dercerto e aviso brigadao

Vai ai uma função para varios objetos em multiplos formulários

insira no Modulo.bas

Function Numero(Tecla As Integer, Campo As String) As Integer
 '  BACKSPACE 8

'  ENTER 13

'  DELETE   48               

'  NÚMEROS    57

'  VÍRGULA 44

'  PONTO 46
   If Tecla <> 8 And Tecla <> 13 And Tecla <> vbKeyDelete And (Tecla < 48 Or Tecla > 57) And Tecla <> 44 And Tecla <> 46 Then
      Numero = 0
   ElseIf Tecla = 44 Or Tecla = 46 Then
          If (InStr(Campo, ",")) = 0 Then
             If Tecla = 46 Then
                Tecla = 44
                Numero = Tecla
             Else
                 Numero = Tecla
             End If
          Else
              Numero = 0
          End If
   Else
       Numero = Tecla
   End If
End Function

para chamar a função:

Private Sub Text1.Text_KeyPress(KeyAscii As Integer)
    KeyAscii = Numero(KeyAscii, Text1.text.Text)
End Sub