Soru textboxda girilen rakam sayısına +1 ekleme

[sirkülasyon]

Userform Textbox9' a 1-30 aralığında hangi rakam girilirse girilsin +1 metnini ekleyecek şekilde bir koda ihtiyacım var. Yardımcı olabilir misiniz?
Örnek :
13 rakamı girildi görünür şekli 13+1 şeklinde olacak.
20 rakamı girildi görünür şekli 20+1 şeklinde olacak.
31 ve üstü rakamı girildi ise "30' dan fazla girildi" uyarısı verecek

 

[YUSUF44]

Textbox9 Exit kodu aşağıdaki gibi olabilir:

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox9) Then
    If TextBox9 >= 31 Then
        MsgBox "30'dan büyük sayı girildi!", vbInformation
    Else
        TextBox9.Text = TextBox9.Text & "+1"
    End If
Else
    MsgBox "Lütfen sayı giriniz!", vbInformation
End If
End Sub

 

[sirkülasyon]

Yusuf abi
teşekkür ederim.