Dim StrLen As Long
Dim StrPos As Long
Dim OurString As String

OurString = "Never Give up"

MsgBox OurString

StrLen = Len(OurString)
StrPos = InStr(1, OurString, " ")

' Drop off the first word from OurString

If Not StrPos = 0 Then
    OurString = Right(OurString, StrLen - StrPos)
End If

MsgBox OurString