VB6.0 取得windows 临时目录 temp

Private Sub Form_Load()
Dim S As String, S1 As String
S = Environ("temp")
Open S & "\AA.txt" For Output As #1
 Print #1, "呵呵"
Close #1
Open S & "\AA.txt" For Input As #1
 Input #1, S1
Close #1
MsgBox S1
End Sub