Παράδειγμα:
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