Как удалить из начала строки, определённую часть строки?

 Dim a as string = "HKEY_CLASSES_ROOT\AllFilesystemObjects"
        If a.StartsWith("HKEY_CLASSES_ROOT\") Then
            a = a.Replace("HKEY_CLASSES_ROOT\", "")
            
        End If

    Function RemovePrefix(s As String, prefix As String) As String
        If String.IsNullOrEmpty(s) Then Throw New ArgumentNullException(NameOf(s))
        If String.IsNullOrEmpty(prefix) Then Throw New ArgumentNullException(NameOf(prefix))
        If s.Length < prefix.Length Then Throw New ArgumentException(NameOf(s))
        Return If(s.StartsWith(prefix, StringComparison.Ordinal), s.Substring(prefix.Length), s)
    End Function

    ''' <summary>
    ''' Вспомогательная функция для определения базового ключа + частичная проверка ключа на вшивость
    ''' </summary>
    ''' <param name="key"></param>
    ''' <returns></returns>
    Private Function HKey(key As String) As RegistryHive
        Select Case Extract(key)
        Case "HKEY_CLASSES_ROOT", "HKCR"
            Return RegistryHive.ClassesRoot
        Case "HKEY_CURRENT_USER", "HKCU"
            Return RegistryHive.CurrentUser
        Case "HKEY_LOCAL_MACHINE", "HKLM"
            Return RegistryHive.LocalMachine
        Case "HKEY_USERS", "HKU"
            Return RegistryHive.Users
        Case "HKEY_PERFORMANCE_DATA", "HKPD"
            Return RegistryHive.PerformanceData
        Case "HKEY_CURRENT_CONFIG", "HKCC"
            Return RegistryHive.CurrentConfig
        Case "HKEY_DYN_DATA", "HKDD"
            Return RegistryHive.DynData
        Case Else
            Throw New Exception($"Error ('{GetCurrentMethod().Name}') - Key is not valid - > '{key}' ")
        End Select
    End Function

    Function RemovePrefixIII(s As String, prefix As String) As String
        If String.IsNullOrEmpty(s) Then Throw New ArgumentNullException(NameOf(s))
        If String.IsNullOrEmpty(prefix) Then Throw New ArgumentNullException(NameOf(prefix))
        If s.Length < prefix.Length Then Throw New ArgumentException(NameOf(s))
        Return If(s.StartsWith(prefix, StringComparison.Ordinal), New String(s.ToCharArray(prefix.Length, s.Length - prefix.Length)), s)
    End Function
    
        Public Function TrimStartStringIV(s As String, prefix As String) As String
        If String.IsNullOrEmpty(s) Then Throw New ArgumentNullException(NameOf(s))
        If String.IsNullOrEmpty(prefix) Then Throw New ArgumentNullException(NameOf(prefix))
        If s.Length < prefix.Length Then Throw New ArgumentException(NameOf(s))
        Return If(s.StartsWith(prefix, StringComparison.Ordinal), s.TrimStart(prefix.ToCharArray), s)
    End Function

' Что делает Substring
Dim source() As Char = {"a", "b", "\", "c", "d", "e"}
Dim result() As Char
ReDim result(2)
Array.Copy(source, 3, result, 0, result.Length)

' Что делает ваш код
Dim source() As Char = {"a", "b", "\", "c", "d", "e"}
 
Dim tempArray() As Char
ReDim tempArray(2)
Array.Copy(source, 3, tempArray, 0, tempArray.Length)
 
Dim result() As Char
ReDim result(2)
Array.Copy(tempArray, result, tempArray.Length)

Return If(s.StartsWith(prefix, StringComparison.Ordinal), New String(s.ToCharArray(prefix.Length, s.Length - prefix.Length)), s)

Return If(s.StartsWith(prefix, StringComparison.Ordinal), s.ToCharArray(prefix.Length, s.Length - prefix.Length).Tostring, s)