[3booody]

هل تقصد

كود :

If Val(TextBox1.Text) > 999 Then
            Dim str As String = TextBox1.Text
            TextBox1.Text = "a" & str
        End If