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 Function kino(ByVal StrDu As String, ByVal StrMir As String)
 
    kino = True
 
End Function

--------------------------------------------------------
Guten Tag, was k?nnen Sie f?r mich tun?