VB6.0でexcelのファイルを開き、そのファイルのsheet1を読み込ませてセルA1が空白
でなければテキストを吐き出させるようにしたいのですが、どうすれば良いのでしょうか？
またできればexcelのファイルは非表示で開きたいと思っています。

excelのVBAだと下記のような感じになるのですが、VB6.0だとどこを修正してやれば良い
のでしょうか？ちなみに下記ではexcelを非表示で開く事はできません

　　Dim TEST As String
Workbooks.Open Filename:="C:\test.xls"

TEST = ActiveWorkbook.Path & "\test.txt"
Worksheets("sheet1").Activate

Open TEST For Output As #1

If Range("A1").Value <> "" Then
Print #1, "A1"
End If