急需一個VB小程序,清除冒號右方的第一個數字

題目：

急需一個VB小程序,清除冒號右方的第一個數字
設計一個VB小程序,在文本框輸入或粘貼一段數字,點擊按鈕後清除所有冒號（該冒號爲英文輸入法的冒號:不是漢字輸入法的冒號：）右方的第一個數字（無論該冒號離第一個數字有多遠,即允許冒號後面的數字有多個空格或下一行）.舉例：
123:367:68904:3578:5698:
2349:
123
則要清除的數字爲363521,其它數字全部保留.要求自己驗證通過!不要錯誤的還發!
大蝦們幫幫弟弟吧,我分不多,全給了

解答：

Private Sub Command1_Click()
Dim i As Long
Dim s As String
Dim r As String
Dim F As Boolean
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text,i,1)
If s = ":" Then
F = True
End If
If Not (F = True And IsNumeric(s) = True) Then
r = r & s
Else
F = False
End If
Next i
Text1.Text = r
End Sub
'記得textbox的multiline屬性是true,添加一個按鈕即可