Sub test(teststring as String)

MsgBox(teststring)

End Sub