Visual Basic - Validar Decimales en un TextBox. Help

Mi problema es el siguiente, tengo un textbox donde voy a introducir una cantidad en moneda, o sea, dicho textbox no puede contener otro caracter que no sea numero, pero tambien quiero introducir decimales (2 decimales)

Mi codigo de validacion es:

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0 'Cancela el caracter
Beep 'Sonido de aviso de error
End If
End Sub

De esta forma solo puedo introducir numeros, pero si permito que ademas de numeros me deje introducir la coma o el punto para asi poder poner decimales entonces no validad la posicion del punto o cuantos puntos puedo poner, y el operador podria introducir valores como estos:

1200,234
,6788
34,767,,899
989,12,234,221,

Tendria que haber una forma de validar dicha coma a que solo se pueda introducir una vez y que este en el lugar correcto.

ALGUIEN SABE COMO HACER ESTO???

Fijate si funciona así:

Private Sub Text2_Change()
If InStr(StrReverse(Text2.Text), ",") > 3 Then
Text2.Text = Left(Text2.Text, Len(Text2.Text) - 1)
Text2.SelStart = Len(Text2.Text)
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 44 And InStr(Text2.Text, ",") > 0 Then
KeyAscii = 0
Exit Sub
End If
If KeyAscii <> 44 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End If
End Sub

Saludos

Eso funciona, pero a medias.

No puedes utilizar la tecla de retroceso, ni el punto como separador decimal y ni siquiera el signo menos para numeros negativos.

hace tiempo vi un ejemplo que yo vengo utilizando con resultados excelentes

http://www.canalvisualbasic.net/forum/forum_posts.asp?TID=24668

Es verdad, Boludo, pero ocurre que Fran no habló de punto (Keyascii = 46) decimal si no de coma decimal al final de su mensaje, tal como muestra en sus ejemplos. Por otro lado para considerar retroceso basta con agregar "... And KeyAscii <> 8 ..." pero, sencillamente, me he limitado a lo propuesto por Fran.
Saludos Cordiales

Miren este codigo, lo hice anoche y valida todo, solo utilicen un TextBox:

Private Sub Text1_Change()
If Text1.Text = "," Then
Text1.Text = ""
Text1.Tag = 0
End If
If Len(Text1.Text) = 1 Then Text1.Tag = 0
End Sub

Private Sub Text1_GotFocus()
Text1.Text = Format$(Text1.Text, "###.##")
If Right(Text1.Text, 1) = "," Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Else
If Left(Text1.Text, 1) = "," Then Text1.Text = "0" & Text1.Text
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{TAB}"
Exit Sub
End If
If Text1.Text = "" Then Text1.Tag = 0
If Not KeyAscii = 8 Then
If (Not (KeyAscii = 46)) And (Not (KeyAscii = 44)) Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0 'Cancela el caracter
Beep 'Sonido de aviso de error
Else
If Text1.Tag = 1 Then
If InStr(Text1.Text, ",") < 1 Then
Text1.Text = Text1.Text & ","
Text1.SelStart = Len(Text1.Text)
Else
If (Len(Text1.Text) - 2) <> 0 Then
If Mid(Text1.Text, (Len(Text1.Text) - 2), 1) = "," Then
If Not (Text1.SelStart <= (Len(Text1.Text) - 3)) Then
KeyAscii = 0
End If
End If
End If
End If
End If
End If
Else
If Text1.Tag = 1 Then
KeyAscii = 0
If Right(Text1.Text, 1) = "," Then Text1.SelStart = Len(Text1.Text)
If Mid(Text1.Text, (Len(Text1.Text) - 1), 1) = "," Then Text1.SelStart = (Len(Text1.Text) - 1)
If Mid(Text1.Text, (Len(Text1.Text) - 2), 1) = "," Then Text1.SelStart = (Len(Text1.Text) - 2)
Else
If Text1.Text = "" Then
KeyAscii = 0
Else
Text1.Tag = 1
KeyAscii = 0
End If
End If
End If
Else
If Right(Text1.Text, 1) = "," Then
Text1.Tag = 0
End If
End If
End Sub

Private Sub Text1_LostFocus()
If Text1.Text <> "" And (Val(Text1.Text) <> 0) Then
Text1.Text = Format$(Text1.Text, "###,###.##")
If Left(Text1.Text, 1) = "," Then Text1.Text = "0" & Text1.Text
If Right(Text1.Text, 1) = "," Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.Tag = 0
Else
If Mid(Text1.Text, (Len(Text1.Text) - 1), 1) = "," Then
Text1.Text = Text1.Text & "0"
End If
End If
End If
End Sub

Es muy bueno me funciono muy bien sigue asi gracias

Validar Decimales enteros en visual basic

El codigo que escribiste esta muy bien, pero otra opcion que podrias implementar seria cargar un vector numerico y agregarle las comas y lo que desees y validar que lo que halla dentro del text no sea diferente a lo que hay el el vector, (las comas estarian ahi asi que no tendrias provlemas) evaluas por cada caracter que se ingresa....