Code:
Dim i As Integer
Dim Binary() As String
Dim Length As Integer
Dim sBin As String
sBin = Text3.Text
Length = Len(sBin)
ReDim Binary(Length - 1) As String
For i = 0 To Length - 1
Binary(i) = Mid(sBin, i + 1, 1)
If InStr(sBin, "@") Then
List2.AddItem Binary(i)
End If
Nextthis is the text that will go in text3.text multi line , how ever the the lines can be greater i wish to find all strings containing ( @ ) and add to list2 please help
Code:
Custom Software
asd fd utilities provides customized software solutions for companies large and small when off-the-shelf, homogenized solutions just wont cut it. We utilize and integrate a wide array of technologies to custom tailor our solutions to fit each clients unique needs.
eXTReMe Tracker
Contact Information
E-mail: staff@xxx-xxx-xxx.com
Our website is valid XHTML 1.0 Transitional Home Page Sitemap Rss
Copyright ©2014 xxx sdsad dsd All Rights Reserved.