ＶＢＡで対象となる月の数を出す方法を教えて下さい。

質問

2009.12.21～2010.1.20と入力された場合、結果2
2009.4.1～2009.4.30と入力された場合、結果1
のように対象となる（足かけ月数）月数を出す方法を知りたいのです。

下記コードのように変数Ａ、ＢにVariant型で入力してもらい（Variant型でないと困る理由があるので）
それをDate型に変換したり、またVariant型に戻したり（必要があり）しながら、myOpenFileNamesにMypath & MyFileを順次追加すべく進めたいのですが、Mcntを出せずにいます。
Month(B)-Month(A)では12月と1月で不具合が出るし‥
期間が3か月以上の場合もあります。
なにかシンプルなのがありそうなので半日調べたのですが解りませんでした。皆様、お助け下さいませ。

ここまで省略
'●請求対象期間の入力
A = Application.InputBox("請求対象期間（開始日）を入力してください。", "開始日", "2009.12.21", Type:=2)
If A = False Then
MsgBox " Cancel ボタンが押されました"
Exit Sub
End If
On Error GoTo OWARI3
A = CDate(Replace(A, ".", "/"))
On Error GoTo 0
B = Application.InputBox("請求対象期間（締め日）を入力してください。", "締め日", Replace(Format(DateAdd("d", -1, DateAdd("m", 1, A)), "yyyy/mm/dd"), "/", "."), Type:=2)
If B = False Then
GoTo OWARI
End If
On Error GoTo OWARI3
B = CDate(Replace(B, ".", "/"))
On Error GoTo 0
If A > B Then
MsgBox A & "～" & B & "　は請求日と締め日が逆転してます。", vbOKOnly + vbCritical, "最初からやり直して下さい。"
GoTo OWARI
End If
D = B - A
msgRec = MsgBox(A & "～" & B & "分でよろしいですか？", vbOKCancel + vbQuestion, "対象は" & D + 1 & "日分です")
If msgRec = vbCancel Then
MsgBox " Cancel ボタンが押されました"
Exit Sub
End If

Mcnt = ●○○○●　　　　　　　　←ここを出す方法を知りたいのです。********************************

ReDim BN(1 To Mcnt)
For i = 1 To Mcnt
BN(i) = Replace(Format(DateAdd("m", i - 1, A), "yyyy/mm"), "/", ".")

Mypath = ThisWorkbook.Path & "\明細書一覧" & BN(i) & "月"
MyFile = "\明細書一覧" & BN(i) & "月.xls"
myOpenFileNames.Add (Mypath & MyFile)
Next i
以下略

回答No.3

end-u

>しかし、Format$の 「$」の意味が解りません。
Format関数やReplace関数など、文字列を扱う関数には、$が付いた関数があります。
$付き関数は文字列型の値を返し、付いていないものはバリアント型の値を返します。
例えば、文字列型変数に受ける場合は、この$付き関数を使った方が速度的にも有利とされています。
...が、今回のケースはあまり気にする事はないでしょう。
普段から、あまり意識して使い分けてるわけではないので適切ではなかったかもしれません。
参考にされるなら以下のサイトなど。
http://www.tsware.jp/labo/labo_32.htm
http://hanatyan.sakura.ne.jp/vbhlp/sonota_no1.htm

お礼

end-uさん。いつもお世話になります。「$」を最初に見たとき、byteタイプ？だったかな。と思い調べましたが違い、Like演算子にはなかったよなぁとか思い調べてみたのですがこれもやはり違い。結局頼ってしまいました。文字列型だったのですね。バリアント型と文字列型でメモリ容量の問題で文字列型型が有利。しかし、変換効率は元の型と置き換わってしまうかににもよるので、元が文字列型で、変換先も文字列型に変換して問題がないのなら、$をつけて行った方が有利ということなのですね。勉強させてもらいました。しかし、自分では。探せずにお手数かけました。ありがとうございました。いま、請求関係で焦りながら手探り状態です。しばらくの間ＯＫＷＡＶＥに頻繁に出没してしまいそうですので、また助けて下さい。本当に有難うございました。YOKOKAMA46