- لنفترض أن الكلمات والأرقام موجودة في Text1 وتريد وضع الأرقام في Text2 و الكلمات في Text3 :
كود :
Dim WordsNumbers () As String
Dim I As Integer
WordsNumbers = Split(Trim(Text1.Text) , " ")
IF UBound(WordsNumbers) > -1 Then
For I = LBound(WordsNumbers) To UBound(WordsNumbers)
IF IsNumeric(WordsNumbers(I)) = True Then
Text2.Text = Text2.Text & WordsNumbers(I) & " "
Else
Text3.Text = Text3.Text & WordsNumbers(I) & " "
End IF
Next
