Overfører variabler imellem forms

og her er et spørgsmål mere:

Private Sub Command3_Click()
MsgBox "Vil du slette: " & List1 & "??", 1, "Delete?"
If MsgBox = vbOK Then
msgbox "Slettet"
end if
End Sub

Hvorfor virker det ikke? JEg får fejlen "Argument not optional"


Hvorfor vil det ikke virke?

'----------- Module1 -----------
Option Explicit

Public strOverfører As String
'----------- Module1 -----------

'------------ Form1 ------------
Option Explicit

Private Sub Command1_Click()
  strOverfører = "Test"
End Sub
'------------ Form1 ------------

'------------ Form2 ------------
Option Explicit

Private Sub Command1_Click()
  Me.Caption = strOverfører
End Sub
'------------ Form2 ------------

Private Sub Command3_Click()
Dim ret As Long
ret = MsgBox("Vil du slette: " & List1 & "??", 1, "Delete?")
  If ret = vbOK Then
    MsgBox "Slettet"
  End If
End Sub

Tror at det er 10. gang jeg skriver følgende:

Variabler der er erklæret i en sub - uanset om denne sub er i et modul eller på en form - er kun synlige for Sub'ben

Variabler der er erklæret som Private i et eksternt modul kan tilgås fra alle subs i det pågældende modul.

Variabler der er erklæret som Public i et eksternt modul kan tilgås direkte fra alle forme, fx. ved Modul1.Variabelnavn = Værdi

Variabler der er erklæret i som Private i toppen af en form's kodevindue (udenfor en sub) kan tilgås fra alle subs på formen

Variabler der er erklæret i som Public toppen af en form's kodevindue (udenfor en sub) kan tilgås fra alle subs på formen SAMT andre forms ved fx. Form1.variabelnavn = Værdi

Altsammen står i detaljer på msdn.microsoft.com:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconunderstandingscopeofvariables.asp

MHT. din msgbox:

Sætter du beskedden i parantes, returnerer msgbox en værdi (som en function), gør du ikke, returnerer den ikke en værdi (som en Sub)

Altså skal du rette til

If VBOK = MsgBox("Vil du slette: " & List1 & "??", 1, "Delete?") then
  'slet hvad der skal slettes 
  msgbox "Slettet"
end if