Visual Basic - duda facil sobre array

buenas!!

tengo un textbox en el que solo dejo tipear números, pero he de controlar que solo me escriban numeros decimales, con UNA SOLA COMA.
no se muy bien como hacerlo, esto es lo q tengo hecho:

dim dimension as integer
dim cadena(5) as string
dim i as integer

Private Sub txtPrecio_Change()
dimension = Len(txtPrecio.Text) - 1
cadena(dimension) = PUnitL1.Text
For i = 0 To dimension
If cadena(i) = "," Then
.............
End If
Next
End Sub

he intentado poner en el if lo de Keyascii = 0 , pero me da error, que es lo q deberia hacer?

gracias!!!

Prueba con lo siguiente:

Private Sub txtPrecio_Change()
Dim aPartes() As String

'La funcion SPLIT te separa un texto según el delimitador que elijas (en este
'caso la ",". Y te guarda cada parte en un array que se dimensiona
'automáticamente.
aPartes = Split(txtPrecio, ",")

'Como quieres que haya una sola coma, el array debe tener sólo 2 posiciones
'(o sea que si UBound(array) > 1 pusieron más de una coma)
If UBound(aPartes) > 1 Then

'Si quieres este msgbox lo podés sacar
MsgBox "El numero ingresado tiene más de una coma"

'Elimino la ultima coma que puso el usuario, tomando desde la izquierda
'la cantidad de caracteres del textbox, menos 1
txtPrecio = Left(txtPrecio, Len(txtPrecio) - 1)

'Coloco el cursor al final del textbox para que el usuario pueda seguir
'introduciendo datos
txtPrecio.SelStart = Len(txtPrecio)
End If
End Sub

muchas gracias compañero, tu explicación me ha sido de una ayuda excelente, asi como el código.
muchas gracias y saludiños desde Galicia ;)

Yo lo soluccione con este ejemplo::

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

Espero que te sirva