Sub Beni()
    Dim nev As String
        InputBox ("Mi a keresztneve?")
            If nev = Benedek Then
                MsgBox ("Ön meleg!")
            ElseIf nev = Dániel Then
                MsgBox ("Ön hetero és nagyon nagy király!")
            Else
                MsgBox ("Ön hetero!")
            End If
End Sub