Hoe vind ik de tweede of derde spatie in een string

Function FindN(sFindWhat As String, _
sInputString As String, N As Integer) As Integer
Dim J As Integer
Application.Volatile
FindN = 0
For J = 1 To N
FindN = InStr(FindN + 1, sInputString, sFindWhat)
If FindN = 0 Then Exit For
Next
End Function

Sub M_snb()
   c00 = "123 jkl uyt poiu ppppp"
   MsgBox InStrRev(Replace(c00, " ", "_", , 3), "_")
End Sub

function F_snb(c00,c01,y)
  F_snb=InStrRev(Replace(c00, c01, "_", , y), "_")
end function

Function LaatstGevonden(HierZoekIk As String, DitZoekIk As String)
If DitZoekIk = "" Then Exit Function
If HierZoekIk = "" Then Exit Function
'Let op: functie is hoofdletter gevoelig.
For I = 1 To Len(HierZoekIk)
    If Mid(HierZoekIk, I, Len(DitZoekIk)) = DitZoekIk Then
        LaatstGevonden = I
    End If
Next I
'    If DitZoekIk = "" Or HierZoekIk = "" Then LaatstGevonden = ""
End Function