Visual Basic - Ayuda!!!!

Como puedo controlar que en una caja de texto solo me entren numeros???

Y para conseguir q solo me entren numeros y una sola coma?????

Gracias

Ingresa esto en evento Keypress lo siguiente:

Private Sub Campo_GotFocus()
HayComa = False
End Sub

Private Sub Campo_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 44 '---44 Coma
If HayComa Then
KeyAscii = 0
Else
HayComa = True
End If
Case 8, 48 To 57 '---8 Retroceso / 48 to 57 Los Numeros
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End Sub

Saludos desde Lima