逻辑是什么?把输入的数字都替换掉?
Dim pattern As String = "[0-9]"Dim txt As String = "A12345"Dim str As String = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"")msgbox(str)