Создание текстовых файлов на VBA

[Emmk]

Доброе время суток! Скажу сразу - в программировании под офис я новичок, поэтому не судите строго за глупость вопроса.
Суть проблемы - есть код, который ищет в таблице ячейки иного типа чем General.

While Cells(j, i).Value <> Empty
While Cells(i, j).Value <> Empty

If Cells(i, j).NumberFormat <> "General" Then
End If
i = i + 1
Wend
i = 1
j = j + 1
Wend

Найденные таким образом ячейки, я хочу записывать в текстовый файл. Формата "Координаты ячейки" - "Значение ячейки".
Проблема в том, что не могу найти функцию создания текстового файла. Возможно ли это реализовать?

Либо вариант 2 - найденные ячейки писать на новый лист в подобном же формате, но как переключатся между листами вообще не представляю.
Подскажите как лучше быть. Заранее большое спасибо!

[IgorGO]

r = 2:  sh = 2:  sheets(sh).[a:b].clearcontents
sheets(sh).cells(1,1) = "Инфо о ячейках листа " & activesheet.name
for each cell in activesheet.usedrange
  If Cell.NumberFormat <> "General" Then 
    sheets(sh).cells(r,1) = cell.address
    sheets(sh).cells(r,2) = cell.value
    r = r+1
  end if
next

вместо 2 укажите номер листа, на который макрос сложит данные. внимание!: макрос очистит две первые колонки указанного листа перед началом работы.

[Emmk]

Огромное спасибо!

[Казанский]

В файл еще проще:

Sub Emmk()
Dim c As Range
Open "c:\temp\NonGeneral.txt" For Output As #1
For Each c In ActiveSheet.UsedRange
    If c.NumberFormat <> "General" Then Print #1, c.Address(0, 0), c.Value
Next
Reset
End Sub