TextBox tan Çıkış Gerçekştirme (Numeric)

[stirra_ej]

Textboxun içine sayı girmeme zorluyor, girmediğim zaman çıkış gerçekştiremiyorum... İstiyorum ki text box boş iken çıkış gerçekleştirebileyim, sadece sayı dışında metin v.s olursa çıkış yapamayayım. Bir yolu var mı acaba. Yardımcı olabilirmisiniz...

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox7.Value) Then
Cancel = False
Else
Cancel = True
Beep '
MsgBox ("Sadece sayı girin!")
End If
End Sub

 

[Haluk]

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Trim(TextBox7) <> Empty Then
        If IsNumeric(TextBox7.Value) Then
            Cancel = False
        Else
            Cancel = True
            MsgBox ("Sadece sayı girin!")
        End If
    End If
End Sub

.