Sub Main Dim MString MString = String(5, "*") ' Returns "*****". MString = String(5, 42) ' Returns "44444". MString = String(10, "Today") ' Returns "TTTTTTTTTT". Print MString End Sub