Buen día, soy nuevo en esto de Vb6 así que no entiendo muchos términos; alguien me puede decir que me falta para que el textbox me acepte el "." (punto decimal) solo una vez, y que las cantidades me las muestre en moneda "$".

Esto es lo que tengo en el código:

Private Sub Punit_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then
Beep
KeyAscii = 0
End If
End If
End Sub