@Psyke1

Tu funcion Crashea!¡.

 
    Debug.Print RemoveStr_Psyke1("BlackZeroX", -1, 4), Len(RemoveStr_Psyke1("BlackZeroX", -1, 4))
    Debug.Print RemoveStr_Psyke1("BlackZeroX", 9, 4), Len(RemoveStr_Psyke1("BlackZeroX", 9, 4))
    Debug.Print RemoveStr_Psyke1("BlackZeroX", 0, -4), Len(RemoveStr_Psyke1("BlackZeroX", 0, -4))
    Debug.Print RemoveStr_Psyke1("BlackZeroX", 1, 4), Len(RemoveStr_Psyke1("BlackZeroX", 1, 4))
    Debug.Print RemoveStr_Psyke1("BlackZeroX", 0, 4), Len(RemoveStr_Psyke1("BlackZeroX", 0, 4))
    Debug.Print RemoveStr_Psyke1("BlackZeroX", 0, 400), Len(RemoveStr_Psyke1("BlackZeroX", 0, 400))
 
 

Dulces Lunas!¡.

... Nada tiene que ver static (Que por cierto static para procesos carece de la funcionalidad habitual de llamada a funcion/proceso sin instanciar la clase y por ende esta demas en una funcion miembro static para variables muy diferente a static para miembros de clases y TODO esto deberia ser lo mismo para vb6, pero no es asi).

 * El unico uso que le preveo es una Generalizacion de la declaracion static para las declaraciones internas para EVITAR que se autodestruyan las variables.
 
Mira este codigo:

 
Option Explicit
 
Private Sub Form_Load()
    Debug.Print holaNoStatic, holaStatic
    Debug.Print holaNoStatic, holaStatic
    Debug.Print holaNoStatic, holaStatic
    Debug.Print holaNoStatic, holaStatic
    Debug.Print holaNoStatic, holaStatic
    Debug.Print holaNoStatic, holaStatic
    Debug.Print holaNoStatic, holaStatic
    Debug.Print holaNoStatic, holaStatic
End Sub
 
Public Function holaNoStatic() As String
Dim a As Integer
    Debug.Print "[a=" & VarPtr(a) & "]",
    holaNoStatic = a
    a = a + 1
End Function
 
Public Static Function holaStatic() As String
Dim a As Integer
    Debug.Print "[a=" & VarPtr(a) & "]"
    holaStatic = a
    a = a + 1
End Function
 
 

Revisa tu funcion con las 6 pruebas que deje en el anterior post.

Dulces Lunas!¡.