String.PadLeft・PadRightメソッドでは、余白として半角スペース以外の文字を挿入するように指定することも出来ます。
String.PadLeft・PadRightメソッドを使って指定した文字を余白として挿入する
Imports System
Class Sample
Shared Sub Main()
Dim s As String = "foo"
Console.WriteLine("<{0}>", s.PadLeft(6, "*"c)) ' 文字数が6になるように左側に'*'を挿入
Console.WriteLine("<{0}>", s.PadRight(6, "-"c)) ' 文字数が6になるように右側に'-'を挿入
End Sub
End Class
実行結果
<***foo> <foo--->