Excel VBAの数値変換

ExcelVBAの質問です。
ある文字列から抽出した数字（ただし文字型）を数字型に変換するのはどうしたらよいですか。

Dim moji As String, xxx As String
Dim suji As Doulbe
xxx = Mid(moji, 3, 4)
この後、xxxを数字型にしたいのですが、どうしたらよいですか？
よろしくお願いします。

No.1 ベストアンサー 回答者： trajaa 回答日時： 2009/10/24 13:29

入れ物と思わしき変数がDouble型なので一応、Cdbl(XXX)で可能です。

http://www.kanaya440.com/contents/script/vbs/fun …

しかし、XXX内に数字として扱えない文字が混じっていると落ちます。
その辺は注意が必要。