Imports System
Class Sample
Public Shared Sub Main()
Dim str As String
Dim pad As Char
str = "test"
pad = Convert.ToChar(".")
Console.WriteLine(str.PadRight(15, pad))
Console.WriteLine(str.PadRight(2, pad))
End Sub 'Main
End Class 'Sample