[معاند الحظ]

وعليك السلام ورحمة الله وبركاته

يمكنك استخدام الدالة IsNumeric اولا لتفحص القيمة الموجودة في مربع النص 
فاذا كانت القيمة رقمية يمكنك فقط اضافة علامة النسبة المئوية "%" الى اخر الرقم

مثال:

كود :

Dim Str1 As String = "ABCD" ' c
Dim Str2 As String = "1234" ' c

IsNumeric(Str1) = False
IsNumeric(Str2) = True

وطريقة كتابة الكود كالتالي:

كود :

If IsNumeric(TextBox1.Text)= True Then
TextBox1.Text += "%" ' just for correcting text allignment  
End If

او يمكنك استخدام الدالة FormatPercent لتحويل القيمة الرقمية في مربع النص الى نسبة مئوية

والطريقة كالتالي:

كود :

If IsNumeric(TextBox1.Text)= True Then
TextBox1.Text = FormatPercent(TextBox1.Text,2) ' if textbox1.text=1234 the result will be 1234.00%  
End If