hizuke = Now + 30  '★★★一月先の日付を出す
    nen = Year(hizuke)
    getu = Month(hizuke)
    getu = String(2 - Len(getu), "0") & getu
    nitizi = nen & "-" & getu

    juusho = "http://www.nhk.or.jp/bsclassic/crs/crs-" & nitizi & ".html"
    Set InEx = CreateObject("internetexplorer.application")
    InEx.Visible = True
        InEx.Left = 0
        InEx.Top = 0
        InEx.Height = 550
        InEx.Width = 800
    InEx.Navigate juusho