Dim stb As New Text.StringBuilder("aaaa")
Dim stb1 As Text.StringBuilder = stb
 
Testit(stb)
 
 
'Diese Funktion liefert die Zeichenfolge aaaabbbb in der Variable stb zurück
Private Function Testit(ByVal stb As Text.StringBuilder)
 
  stb.Append("bbbb")
 
  stb = New Text.StringBuilder("cccc")
 
End Function
 
 
'Diese Funktion liefert die Zeichenfolge cccc in der Variable stb zurück
'Die Variable stb1 enthält die Zeichenfolge aaaabbbb
Private Function Testit(ByRef stb As Text.StringBuilder)
 
  stb.Append("bbbb")
 
  stb = New Text.StringBuilder("cccc")
 
End Function