Private Sub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
 
            If Asc(e.KeyChar) < 58 And Asc(e.KeyChar) > 47 Then
                If TextBox6.Text.Length > 1 Then
                    e.Handled = True
                End If
                End If
 
    End Sub