VB CaturWulan

 Module CaturWulan

    'Buka CaturWulan.vbproj

    Sub Main()

        Dim bulan As String, Caturwulan As String, noBulan As Integer

        noBulan = InputBox("Ketik no bulan: ")

        Select Case (noBulan)

            Case 1 : bulan = "Jan"

            Case 2 : bulan = "Feb"

            Case 3 : bulan = "Mar"

            Case 4 : bulan = "Apr"

            Case 5 : bulan = "Mei"

            Case 6 : bulan = "Jun"

            Case 7 : bulan = "Jul"

            Case 8 : bulan = "Agu"

            Case 9 : bulan = "Sep"

            Case 10 : bulan = "Okt"

            Case 11 : bulan = "Nop"

            Case 12 : bulan = "Des"

            Case Else : Debug.Print("Tidak ada bulan ke-" & noBulan)

        End Select

        Select Case (noBulan)

            Case 1 To 4 : Caturwulan = "I"

            Case 5 To 8 : Caturwulan = "II"

            Case 9 To 12 : Caturwulan = "III"

            Case Else : Debug.Print("Tidak ada Caturwulan yang terkait") : GoTo Akhir

        End Select

        Debug.Print("Bulan ke-" & noBulan & " (" & bulan & ") masuk ke caturwulan-" & Caturwulan)

Akhir:

    End Sub

End Module