ReadRMMS vars.rmms, vars.pagename, chkWunsch.Value, chkGruss.Value, _
  chkMeinung.Value, chkFrage.Value, vars.SID

ReadRMMS ist dabei die Funktion, die dann so aussieht:
Public Function ReadRMMS(path As String, sektion As String, staWunsch As _
  Variant, staGruss As Variant, staMeinung As Variant, staFrage As Variant, SID _
  As String, Optional AddOn As String)
Dim datastream As String
datastream = zOutSource.Inet1.OpenURL ...