Private Sub komut1_Exit(Cancel As Integer)
If Int(Nz(Me.komut1)) > 1000000 Then
Me.komut1.Text = ""
Me.komut0.SetFocus
Else
Me.komut0.SetFocus
Me.komut1.SetFocus
komut1.SelStart = Len(komut1.Text) + 1
End If
End Sub
büyüklükten ne kastettiğinizi bilemediğim için komut1'e giren sayı 1000000 'dan büyükse yada küçükse şeklide yazdım dilerim işinize yarar