ShiftJISの文字コードの配列に変換して、51バイト目から60バイト目を抜き出して、再びShiftJISとして文字列に変換するという方法が素直だと思います。

#If NETCOREAPP Then

    '.NET Core/.NET 5以降の場合 

    System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)

#End If



Dim value As String = "あああああ      AAAAいいいいいいいいいいいいいい  1111111111BBBBBBBBBB.txt"

Dim valurCharCodes As Byte() = System.Text.Encoding.GetEncoding("shift_jis").GetBytes(value)



Dim targetCharCodes = valurCharCodes.Skip(50).Take(10)

Dim result As String = System.Text.Encoding.GetEncoding("shift_jis").GetString(targetCharCodes.ToArray)

※.NET Core向けのコードも入れていますが、動作確認はしていません。