Este codigo sirve para que un textbox solo reciba numeros, sonando un beep cuando no lo es. aqui va:

'Este codifgo fue copiado de otra pagina

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    KeyAscii = 0 ' Para que no "pite"
    SendKeys "{tab}" ' Envía una pulsación TAB
ElseIf KeyAscii <> 8 Then ' El 8 es la tecla de borrar (backspace)
' Si después de añadirle la tecla actual no es un número...
    If Not IsNumeric(Chr(KeyAscii)) Then
' ... se desecha esa tecla y se avisa de que no es correcta
   Beep
   KeyAscii = 0
   End If
End If
End Sub

'sugerencia:
donde esta el SendKeys "{tab}" se puede cambiar por setfocus
y dirigir el foco al control deseado