Indent

<Extension()>
  Public Function Indent(str As String, length As Integer, Optional indentationCharacter As String = " ") As String

    'If string is nothing or the indentation length is 0 then return the unprocessed string
    If String.IsNullOrEmpty(str) OrElse length = 0 Then Return str

    Dim sb As New StringBuilder()

    'An indentation length smaller then 0 changes this function from an indent function to an append function.
    'For that the final string has to start of with the initial str.
    If length < 0 Then sb.Append(str)

    'Append the indentation string
    For i = 1 To Math.Abs(length)
      sb.Append(indentationCharacter)
    Next

    'If the indentation length was greater then 0 the string gets added now.
    If length > 0 Then sb.Append(str)

    Return sb.ToString

  End Function

Dim text As String = "This is a test"

text.Indent(0)
text.Indent(10)
text.Indent(10, "-")
text.Indent(-10, "-")
text.Indent(5, "/\").Indent(-5, "/\")

'Results

'This is a test
'          This is a test
'----------This is a test
'This is a test----------
'/\/\/\/\/\This is a test/\/\/\/\/\