Split home address separated with a comma - excel

Question

I have about 15 Address that are formatted like, 1111 Really Cool Street, Sweet City, Awesome State I need to split them up into separate cells for their Street, City and State.
The problem I have currently is storing the Street,City and State. I've tried something along the lines..
Dim addressArray() As String
posRow = 1
Do
posRow = posRow + 1
addressFromCell= Sheet1.Cells(posRow , "C")
addressArray() = Split(addressFromCell, ",")
Sheet2.Cells(posRow , "A") = addressArray(0)
Sheet2.Cells(posRow , "B") = addressArray(1)
Sheet2.Cells(posRow , "C") = addressArray(2)
Loop Until posRow = 15
I thought addressArray would look like {"1111 Really Cool Street","Sweet City", "Awesome State"} and I could simply pass in the element I wanted. Instead I keep on getting
Run-time error '9': Subscript out of range
Any help would be great, thanks!

Answer 1

As Ken White pointed out, the reason for the error is that one of the values doesn't contain 2 commas.
Here is how I would do it:
Dim addressArray() As String
posRow = 1
Do
posRow = posRow + 1
addressArray() = Split(Sheet1.Cells(posRow, "C").Value, ",")
Sheet2.Cells(posRow, "A").Resize(1, UBound(addressArray) + 1).Value = addressArray()
Loop Until posRow = 15
This code uses the UBound function to retrieve the Upper Bound (number of the last element) for the Array and ensures that the Range is always the same size as the Array.

Answer 2

To avoid any such error, you should check if the cell is not blank and the address in the cell is not the complete address.
posRow = 1
Do
posRow = posRow + 1
addressFromCell = Sheet1.Cells(posRow, "C")
If addressFromCell <> "" Then
addressArray() = Split(addressFromCell, ",")
If UBound(addressArray) = 2 Then
Sheet2.Cells(posRow, "A") = addressArray(0)
Sheet2.Cells(posRow, "B") = addressArray(1)
Sheet2.Cells(posRow, "C") = addressArray(2)
End If
End If
Loop Until posRow = 15

Answer 3

Try,
Sub test()
Dim vArray
Dim vDB, vR()
Dim i As Long, r As Long, j As Integer
Dim k As Integer
Dim s, e
's = Timer
vDB = Range("c2", "c15")
r = UBound(vDB, 1)
ReDim vR(1 To r, 1 To 3)
For i = 1 To r
vArray = Split(vDB(i, 1), ",")
k = UBound(vArray)
If k > 0 And k < 3 Then
For j = 1 To k
vR(i, j) = vArray(j - 1)
Next j
End If
Next i
With Sheet2
.Range("a2").Resize(r, 3) = vR
End With
'e = Timer
'Debug.Print "Test() time : " & (e - s)
End Sub