you might also try a function:

Function riplace(cell As Range, opcja As Integer) As String
For i = Len(cell) To 1 Step -1
If Mid(cell, i, 1) = Chr(32) Then
counter = counter + 1
If counter = 2 Then
If opcja = 1 Then
riplace = CStr(Left(cell, i - 1))
ElseIf opcja = 2 Then
riplace = Right(cell, Len(cell) - i)
End If
End If
End If
Next i
End Function

2nd argument of the function determins which part of an address to
retrieve:
1 is for 2/3, 2/3-4, Unit 2, 3, Unit 2/3
2 is for Some Street