这个代码怎么把它输入到TXT中

Dim a, temp As String
Dim a_len, h, i, j As Integer
a = "1234567890abcdefghijklmnopqrstuvwxyz"
a_len = Len(a)h = 1
Do While h < a_len    i = 1
    Do While i < a_len
        j = 1
     Do While j < a_len
            temp = Mid(a, h, 1) & Mid(a, i, 1) & Mid(a, j, 1)
            Debug.Print temp
         
            j = j + 1
        Loop
        i = i + 1
    Loop
    h = h + 1
Loop
组合出来的情况，保存到TEXT中。