Dim Lust As String
Dim du As String
Dim mir As String
 
Private Sub Form_Load()
    du = "mädel"
    mir = "junge"
    Lust = "ja"
    If kino(du, mir) And Lust = "ja" Then
        MsgBox "bla bla bla"
    Else
        MsgBox "bla bla bla"
    End If
End Sub
 
Private kino(du, mir) As Boolean
    kino() = True
End Sub