VB DemoIif

 Module DemoIif

    'Buka DemoIif.vbproj

    Sub Main()

        Dim Kelamin As Char, Status As Char

        Kelamin = InputBox("Jenis Kelamin (L/P): ")

        Status = IIf(Kelamin = "L" Or Kelamin = "l", "Lelaki", "Perempuan")

        Debug.Print("Jenis Kelamin: " & Status)

    End Sub

End Module