OMID SOFT

Public Function SilentVerify(EmailInput As String) As Boolean
Check the EmailInput to see if it's valid.
End Function
-
OK, I use the text inside a text box to be checked with this function everything is allright.
SilentVerify(Text1.Text)
-
But I am reading the data from a text file:
-
Open (Text.Text) For Input As #1
Line Input #1, LineIn
Close #1
-
SilentVerify(LineIn)
This will return an error :
"ByRef argument type mismatch"
Why ?!
And how to resolve it ?!

anthony_n

what is LineIn defined as

arluijen

shouldn't "Open (Text.Text) " be "Open (Text1.Text) " ??

anthony_n

should be

ifile as Integer
ifile = freefile
dim linein as string
dim FileName as string

if Dir(text1.text) <> "" then
FileName = text1.text
Open FileName For Input As ifile

line input ifile,Linein

close ifile
else
'Errocode
end if

I think he has got no definition of Linein and it is a verient