VB DemoIfTigaKondisi

 Module DemoIfTigaKondisi

    'Buka DemoIfTigaKondisi.vbproj

    Sub Main()

        Dim bilangan As Integer

        bilangan = InputBox("Masukkan bilangan: ")

        If (bilangan < 0) Then

            Debug.Print(bilangan & " adalah bilangan NEGATIF")

        ElseIf (bilangan = 0) Then

            Debug.Print(bilangan & " adalah NOL")

        Else

            Debug.Print(bilangan & " adalah bilangan POSITIF")

        End If

    End Sub

End Module