Private Sub bloquearTeclas(ByVal sender As System.Object, ByVal e As KeyPressEventArgs) Handles textbox.KeyPress, textbox2.KeyPress
If (Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 9 And Asc(e.KeyChar) <> 13 And Asc(e.KeyChar) <> 44 And Asc(e.KeyChar) <> 46 And Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57) Then
e.Handled = True
Else
If Asc(e.KeyChar) = 46 Then
e.KeyChar = Chr(44)
End If
End If
End Sub
esse é o código para bloquear tecla em textbox.