Otro dato que debes tener en cuenta es que los text solo acepten numeros y no letras
Código:
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
'Solo acepta numeros y la tecla retroceso
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And Chr(KeyAscii) <> vbBack Then
KeyAscii = 0
End If
End Sub
si quieres agregar un caracter mas, por ejemplo punto decimal solo agregas And Chr(KeyAscii) <> "."