Visual Basic.NET - Funcion

Hola a todos, necesitaría si me pueden ayudar con esta funcion. Al llamarla desde un TextBox lo que logro es que cuando estoy ingresando un nro. cuando tecleo el punto "." el cursor se posiciona despues del separador decimal, es decir luego de la coma. Funciona correctamente el unico inconveniente es que si tecleo el punto desde el teclado numerico, es decir el que esta entre el cero y el Intro no me funciona. Alguien me podria decir que tendria que modificarle a la funcion para poder lograr esto.

Muchas gracias de antemano y Saludos para todos.

Esta es la rutina con la que trabajo yo.
Elimina lo que no te interese y ya está.

Private Sub TxtImporte_KeyPress ' Con comas
Dim I, Cont As Integer
Cont = 0
If e.KeyChar = ChrW(46) Then
e.KeyChar = ChrW(44)
End If
Select Case AscW(e.KeyChar)
Case 48 To 57
Cont = 0
For I = 1 To Strings.Len(TxtImporte.Text)
If Strings.Mid(TxtImporte.Text, I, 1) = "," Then
Cont = 1
End If
Next I
If Cont = 1 Then
TxtImporte.MaxLength = 15
Else
TxtImporte.MaxLength = 6
End If
Case Is = 8

Case 44
Cont = 0 : TxtImporte.MaxLength = 15
For I = 1 To Strings.Len(TxtImporte.Text)
If Strings.Mid(TxtImporte.Text, I, 1) = "," Then
Cont = Cont + 1
End If
Next I
If Cont > 0 Then
e.KeyChar = Convert.ToChar(0) : Beep()
End If

Case Else
e.KeyChar = Convert.ToChar(0) : Beep()
End Select
End Sub