Option Base 0

Public Function CutNthWord(sSource As String, iWord As Integer) As String
    'Removes the nth word from a string
    'Requires Option Base 0
    Dim sTmp() As String
    
    sTmp = Split(sSource, " ")
    If iWord > UBound(sTmp) Then
        CutNthWord = sSource
    Else
        sTmp(iWord - 1) = ""
        CutNthWord = Trim(Replace(Join(sTmp), "  ", " "))
    End If
End Function

Public Function GetNthWord(sSource As String, iWord As Integer) As String
    'Returns the nth word from a string
    'Requires Option Base 0
    Dim sTmp() As String
    
    sTmp = Split(sSource, " ")
    If iWord > UBound(sTmp) Then
        GetNthWord = sSource
    Else
        GetNthWord = sTmp(iWord - 1)
    End If
End Function