I don't want to wonder from IcePirate's question too much but here is how I would do your scenario georgiboy if I understand it georgiboy.
[vba]Sub t()
Dim s As String
s = "2400, 300 Smith St. SW, Sulphur, La, 70663"
s = Replace(s, ",", vbCrLf)
MsgBox s
End Sub[/vba]

Of course this will fail to work as one wants under some conditions. e.g. A City or Street name has a comma in their name.