Sub main() StrongMessage "Hello", 5, "*" StrongMessage "world", 10, "!" End Sub ' Display the message msg prefixed by n instances of the string s Sub StrongMessage(msg As String, n As Integer, s As String) Dim head As String ' Could use String(s, n) here For i = 1 To n head = head + s Next i MsgBox head + msg + head End Sub