配列での文字列の連続処理

　ＶＢＡなので低レベルすぎてここで質問する内容ではないかもしれませんが 　 　　 Dim 元データ As Variant Dim 文字数 As Variant 元データ = Range("D1:D3087") For i = 1 To 3087 ’元データに格納されている文字列をこの間で操作したい 　　　　　任意の文字を抜き取ってセルに貼り付ける 文字数 = Len(元データ) MsgBox 文字数 Next i 上記で　元データ　に　D1:D3087　の文字列を格納し文字列から必要な部分を抜き出しセルに書き込みたいのですが、エラーで止まります　D1:D3087　の1行目は麻B060516-MSE300です。 文字列を操作できないのは元データがstringじゃないので無理っぽいかんじがするのですが配列に取り込むにはvariantじゃないといけないみたいなので、良い方法があればご教示いただけると幸いです。