Imports System
Imports System.Linq
Imports System.Text.RegularExpressions

Class Sample
  Shared Sub Main()
    Dim text As String = "ａｂｃｘｙｚＡＢＣＸＹＺ０１２７８９"

    Console.WriteLine(text)

    ' 正規表現にマッチする文字列をメソッドReplaceFullWidthCharsで置換する
    Console.WriteLine(Regex.Replace(text, "(?<fwl>[ａ-ｚ]+)|(?<fwu>[Ａ-Ｚ]+)|(?<fwd>[０-９]+)", AddressOf ReplaceFullWidthChars))
  End Sub

  Function ReplaceFullWidthChars(ByVal m As Match) As String
    If m.Groups("fwl").Success Then
      ' 名前付きグループfwlの正規表現'ａ-ｚ'にマッチした文字列を一文字(char)ずつ選択し、
      ' コードポイントを'ａ-ｚ'から'a-z'の範囲に移動したのち、再度文字列化したものを置換結果として返す
      Return New String(m.Groups("fwl").Value.Select(Function(c) Convert.ToChar(Convert.ToInt32(c) - Convert.ToInt32("ａ"c) + Convert.ToInt32("a"c))).ToArray())
    Else If m.Groups("fwu").Success Then
      ' 上記と同様にグループfwuにマッチした文字列のコードポイントを
      ' 'Ａ-Ｚ'から'A-Z'の範囲に移動し、置換結果として返す
      Return New String(m.Groups("fwu").Value.Select(Function(c) Convert.ToChar(Convert.ToInt32(c) - Convert.ToInt32("Ａ"c) + Convert.ToInt32("A"c))).ToArray())
    Else If m.Groups("fwd").Success Then
      ' 上記と同様にグループfwuにマッチした文字列のコードポイントを
      ' '０-９'から'0-9'の範囲に移動し、置換結果として返す
      Return New String(m.Groups("fwd").Value.Select(Function(c) Convert.ToChar(Convert.ToInt32(c) - Convert.ToInt32("０"c) + Convert.ToInt32("0"c))).ToArray())
    End If

    Return String.Empty ' (ここには到達し得ない)
  End Function
End Class

ａｂｃｘｙｚＡＢＣＸＹＺ０１２７８９
abcxyzABCXYZ012789