Private Sub Command1_Click()
Dim i, temp
temp = ""
For i = 1 To Len(Text1)
If IsNumeric(Mid(Text1, i, 1)) Then
temp = temp & Mid(Text1, i, 1)
End If
Next i
Text2.Text = temp
End Sub

这是我写的一段代码
我在text1中输入一段字符串
然后点击comm1   text2就会显示text1中的所有数字
但是他不会管小数点
例如我输入的“123abc456def789”
他会给我返回123456789
但是我如果输入的是“abc123.456”
他返回给我的也是123456
我现在需要他小数点也取出来
请问大神我应该更改哪个地方

在线等在线等！！！！！！！！！！

Private Sub Command1_Click()
Dim i As Long, temp As String
Dim j As Long
temp = ""
For i = 1 To Len(Text1)
    j = Asc(Mid(Text1.Text, i, 1))
    If (j > 47 And j < 58) Or j = 46 Then           '数字或小数点
        temp = temp & Mid(Text1.Text, i, 1)
    End If
Next i
Text2.Text = temp
End Sub

1、代码未优化
2、未考虑多个小数点情况

谢谢版主！
不需要多个小数点
一个就可以了