Public Function MultiplyStrings(ByVal multiplier As Integer, ByVal value As _
      String) As String
        Dim sb As New System.Text.StringBuilder
        If multiplier > 0 Then
            For i As Integer = 1 To multiplier
                sb.Append(value)
            Next
        End If
        Return sb.ToString
    End Function
 
    Public Function MultiplyChars(ByVal multiplier As Integer, ByVal value As _
      Char) As String
        Dim sb As New System.Text.StringBuilder
        If multiplier > 0 Then
            sb.Append(value, multiplier)
        End If
        Return sb.ToString
    End Function
 
    Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As _
      System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        Debug.WriteLine(MultiplyStrings(4, "ht"))
        Debug.WriteLine(MultiplyChars(4, "h"c))
    End Sub