Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim f As File
Dim fsoStream As TextStream
Dim strLine As String
Set f = fso.GetFile("c:\junk.txt")
Set fsoStream = f.OpenAsTextStream(ForReading)
fsoStream.Skip (3)
Do While Not fsoStream.AtEndOfStream
strLine = fsoStream.ReadLine
MsgBox strLine
Loop
fsoStream.Close
Set fsoStream = Nothing
Set f = Nothing
Set fso = Nothing
End Sub