Cursor in textbox keeps moving to begining during key-in

[rknox]

I am keying in data into a text box and as I am keying it in, the cursor keeps moving back to it's initial position. So, if I key in "154", it displays "541". The "1" shows, then the cursor moves back to the beginning spot and then the "54" shows.

Any help would be appreciated....

Private Sub tbHeight_TextChanged(sender As Object, e As EventArgs) Handles tbHeight.TextChanged
        Dim foot As Decimal

        If IsNumeric(tbHeight.Text) Then
            tbStride.Text = Val(tbHeight.Text) * My.Settings.Height
            foot = Val(tbHeight.Text) * My.Settings.Foot

            tbLength.Text = foot.ToString(".00")

        Else
            tbStep.Text = ""
            tbStride.Text = ""
            tbHeight.Text = ""
            tbLength.Text = ""
        End If

    End Sub