Private Sub txtShift_TextChanged (Old As String, New As String)
Dim sb As StringBuilder
sb.Initialize
For i = 0 To New.Length - 1
If "-.0123456789".IndexOf(New.CharAt(i)) > -1 Then
sb.Append(New.CharAt(i))
End If
Next
txtShift.Text = sb.ToString
txtShift.SetSelection(txtShift.Text.Length, txtShift.Text.Length)
End Sub