Show Popup Screen using VBS

Sub ShowSequenceAlarmPopup(ByRef Tag)

If Tag Then

ShowPopupScreen "Seq_StorageTank", 0, 0, hmiOn,hmiAnimationOff, hmiMedium

Else

ShowPopupScreen "Seq_StorageTank", 0, 0, hmiOff,hmiAnimationOff, hmiMedium

End If

End Sub

 Now, I want to make this script usable on on other tags to open another poupscreen in which the script editor returns an error. The new script I'm trying to work on goes like this. I just added a new parameter Screen, which will contain the popup screen name that I want the srcipt to open.

Sub ShowSequenceAlarmPopup(ByRef Tag, ByRef ScreenName)

If Tag Then

ShowPopupScreen ScreenName, 0, 0, hmiOn,hmiAnimationOff, hmiMedium

Else

ShowPopupScreen ScreenName, 0, 0, hmiOff,hmiAnimationOff, hmiMedium

End If

End Sub

From the compiler, it says wrong parameter type in Line 4, Column 18 - which is the ScreenName. Is it possible to do what's in my mind or is it impossible as of now?

Btw, Im using comfort panel

Regards,

wantutri