.NET 5 でしょうか？
とりあえず、エラーメッセージに書いてある RegisterProviderメソッドがヒントで、下記のようにすれば、実行はできます。

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



Dim result As String = StrConv("ア", VbStrConv.Narrow)

何かエラーが発生している場合は、できましたら、コピー＆貼り付けすればすぐにこちらでもエラーが再現できるプログラムを投稿していただけるとお互い時間の節約になると思います。

なお、投稿されているプログラムはいわゆるサロゲートペアの文字には対応できないようですのですのでご注意ください。

また、一般的なケースでは文字列の幅を取得するには MeasureString が使用できます。