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
 
 
 
 
 
