Faute de Replace, Mid tu connais ? Dans le genre exercice de style on peut avantageusement remplacer ta fonction par celle-ci

Function Pseudo_Replace(chaine As String, mot As String, substitut As String) As String
        
Dim i As Integer, position As Integer
Dim debut As String, fin As String

    position = InStr(1, chaine, mot)
    If position > 0 Then
        debut = Mid(chaine, 1, position - 1)
        fin = Mid(chaine, Len(debut) + Len(mot) + 1)
        Pseudo_Replace = debut + substitut + fin
    Else
        Pseudo_Replace = chaine
    End If
End Function


Mais bon, pourquoi faire simple quand on peut faire compliqué !

Bon, ben ça doit être un bug d'affichage, les backslash disparaissent...
Donc là où on voit un backslash il faut en voire deux, et quand on voit juste "" c'est qu'il y a un backslash entre guillemets.
Milles excuse, je connaissais pas ce bug.
En tout cas le code fonctionne un fois remis les backslash à leur place, je l'ai testé !

Oups !
Au lieu de Split(Path, "") il faut lire Split(Path, ""), évidemment...

Référence plutôt Microsoft Scripting Runtime dans ton projet, et puis alors le code se simplifie de façon étonnante :

Private Sub Check_Directory(Path As String)
On Error GoTo Error
Dim oFso As New FileSystemObject
Dim vItem As Variant
Dim FullPath As String

    If Not oFso.FolderExists(Path) Then
        For Each vItem In Split(Path, "")
            FullPath = Replace(FullPath & vItem & "", "\", "")
            If Not oFso.FolderExists(FullPath) Then
                oFso.CreateFolder FullPath
            End If
        Next
    End If

Exit Sub

Error:
    MsgBox Err.Description
End Sub

Test :
Text1.text = "Tout, tout, absolument tout.", Text1.text ="tout".
Résultat : "Cette phrase ne contient pas ce mot".

En effet, MyTab(i) sera égal à "tout," qui n'est pas la même chose que "tout".
Une autre remarque c'est que le texte au final se retrouve tout en minuscules.
C'est donc écrire beaucoup de code pour pas grand chose, si tu connais la fonction Replace, elle fait le boulot toute seule.

Text3.Text = Replace( LCase(Text1.Text), LCase(Text2.Text), "")

Ca donne un code un peu plus simple !