Rangeで取得したデータを常に配列型として扱う ref: http://qiita.com/siguremon/items/eb8b7d234c6391e2a829

file0.txt

    Dim lastRow As Long
    Dim varData As Variant

    ' なんらかの方法でlastRowを取得
    varData = Worksheets("address").Range("B2:B" & lastRow).Value

    If Not IsArray(varData) Then
        varData = Array(varData)
    End If