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

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