aha! got it tracked down ...
if you replace the above sub readmyno with this one ...
Quote:
Sub ReadMyNo
Dim rmn
rmn = ""
Do Until Mid(MyFileData, MyFileDataPos, 1) = Chr(10) OR MyFileDataPos > Len(MyFileData)
If Mid(MyFileData, MyFileDataPos, 1) <> " " Then
rmn = rmn & Mid(MyFileData, MyFileDataPos, 1)
End If
MyFileDataPos = MyFileDataPos + 1
Loop
MyFileDataPos = MyFileDataPos + 1
Return rmn
End Sub
|
It then works OK.
But I think compiler needs to say "error: cannot assign readmyno a value!" (or something like that
) instead of crashing out...
(readmyno was a function under vb6)
will now check rest of my code and replace as required...
If this crashes on your system, it may be adviseable to fix as I guess other users porting frrom vb6 may get same error and it might turn them off what is otherwise a cool devkit.
I'll keep reporting back this kind of stuff as I progress my conversions ...
Steve