从文本框1中输入的 一个由字母和数字组成的字符串中找出所有的数字并依次连接，再输出到文本框2中 -备考资料

    Private Sub Command1_Click() T = "" For i = 1 To Len(Text1)    If Mid(Text1, i, 1) Like "[0-9]" Then       T = T & Mid(Text1, i, 1)    End If Next Text2 = T End Sub