Trim Left Of Space

Sub GetThatstring()
Dim strMonth As String
Dim iYear As Integer
Dim StrMnthYear As String

strMonth = Trim(Left( Range("A1"), _
InStr(1, Range("A1"), " ", vbTextCompare)))
MsgBox strMonth

iYear = Mid(Range("A1"), _
InStr(1, Range("A1"), " ", vbTextCompare) + 1, 4)
MsgBox iYear

StrMnthYear = Trim(Left(Range("A1"), _
InStr(1, Range("A1"), " ", vbTextCompare) + 4))
MsgBox StrMnthYear
End Sub

I have a column of cells likes:
5/5058 Jack Daniels
5/29AA Crown Royal

I want to delete everything to the left of the first space.
So it will look like:
Jack Daniels
Crown Royal

It has to be vba though. I have done alot of trim in just formulas but this is first time in VBA. The above code is one I found by searching but not sure what to do to modify it.
This will be for range AM2:AM2000