چسباندن تعدادی کاراکتر خاص به یک رشته با طول نامشخص

[edisoon]

از طریق چه دستوری میتوانم تعدادی کاراکتر از یک نوع را به یک رشته اضافه کنم.
مثلا به متغیر MyStr که از نوع String است و مقدار آن "Ali" است میخواهم تعداد 7 کاراکتر "@" بچسبانم. که طول آن به 10 کاراکتر برسد و تبدیل شود به "Ali@@@@@@@"
و همینطور به "Mohammad" تعداد 2 کاراکتر "@@" بچسباند که جمعا بیشتر از 10 کاراکتر نشود.
به دلیل اینکه طول رشته MyStr متغیر است نمیدانم بهترین روش استفاده از چه دستوری است.

[mostafaaa]

سلام
امیدوارم منظورتون رو درست فهمیده باشم.

Function AppendTextToString(ByVal str As String) As String
Dim Lenght As Integer = str.Length
For i As Integer = 0 To (10 - (str.Length + 1))
str &= "@"
Next
Return str
End Function

[اوبالیت به بو]

Dim ch, i AsByte
Dim Mystr AsString
Mystr = InputBox("Enter a String value:", "Input Value")
'MsgBox(Mystr)
ch = 10 - Len(Mystr)
'MsgBox(ch)
For i = 1 To ch
Mystr = Mystr & "@"
Next i
MessageBox.Show(Mystr)