ragazzi si può fare

ho risolto con il seguente codice:

If KeyAscii = 13 Then
KeyAscii = 0 ' evitare il beep
If Index = 15 Then ' se ti trovi all'ultima text
txtFields(1).SetFocus ' torna alla prima
Else
SendKeys "{Tab}" ' simula il tasto tab
End If
End If

If KeyAscii = 46 And Index = 4 Then ' se si inserisce il punto
KeyAscii = 44 ' cambialo in virgola
End If

bye