La constante pàra la carpeta de sistema seria &H25, lee la lista de Raul338 o el link de Xkis o todo el hilo  

.

Segun lo siguiente deviste haber usado RTrim$() en lugar de Trim$()

Aqui Todos los Trim()...

Function Trim$(String As String) As String
    Miembro de VBA.Strings
    Devuelve una copia de una cadena sin espacios iniciales y finales

Function Trim(String)
    Miembro de VBA.Strings
    Devuelve una copia de una cadena sin espacios iniciales y finales

Function RTrim$(String As String) As String
    Miembro de VBA.Strings
    Devuelve una copia de una cadena sin espacios finales

Function RTrim(String)
    Miembro de VBA.Strings
    Devuelve una copia de una cadena sin espacios finales

Function LTrim$(String As String) As String
    Miembro de VBA.Strings
    Devuelve una copia de una cadena sin los espacios iniciales

Function LTrim(String)
    Miembro de VBA.Strings
    Devuelve una copia de una cadena sin los espacios iniciales

 * En Resumen solo quita los ESPACIOS no los Caracteres NULOS

 
Option Explicit
Private Sub Form_Load()
Dim Str_Data$
Dim Str_Aux$
    Str_Data = Space$(200)
    Mid$(Str_Data$, 1, 11) = "BlackZeroX" & Chr(0)
MsgBox Strings.Len(Str_Data$)
    Str_Aux$ = Strings.Trim$(Str_Data$)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
    Str_Aux$ = Strings.Left$(Str_Data$, Strings.InStr(1, Str_Data$, Chr(0)) - 1)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
End Sub
 
 

Dulce Infierno Lunar!¡.

Me parece la mejor opcion