>>331
宿題か?
優しい俺様が教えてやろう
1行目のDim →  Dim Yakuyear(2) As Integer