サンプルマクロは、インプットボックスに年を入力することで、
その年の十干十二支をメッセージボックスで表示します。

Sub Sample()

    Dim strYear As String, intYear As Integer
    Dim varJikkan As Variant, varJunishi As Variant
    Dim myJikkan As String, myJunishi As String

    varJikkan = Array("甲", "乙", "丙", "丁", "戊", _
        "己", "庚", "辛", "壬", "癸")
    varJunishi = Array("子", "丑", "寅", "卯", "辰", "巳", _
        "午", "未", "申", "酉", "戌", "亥")
    On Error Resume Next
    Do
        Err.Clear
        strYear = InputBox("干支を調べる年を入力してください。")
        If strYear = vbNullString Then Exit Sub
        If Right(strYear, 1) = "年" Then _
            strYear = Left(strYear, Len(strYear) - 1)
        intYear = Year(strYear & "/1/1")
    Loop Until Err.Number = 0
    On Error GoTo 0
    
    myJikkan = varJikkan((intYear + 6) Mod 10)
    myJunishi = varJunishi((intYear + 8) Mod 12)

    MsgBox strYear & "年の十干は『" & myJikkan & "』、十二支は『" _
        & myJunishi & "』です。"

End Sub