保存の仕方

こんにちは、次のようなアドレスを入力するとそのソースを表示するプログラムを作ったのですがこれで表示されるソースに名前を付けて保存することってできますか？お願いします。
Private Sub Command1_Click()

Dim strUrl As String
Dim strBuf As String

Command1.Enabled = False
strUrl = InputBox("URLを入力して下さい.")
If (Len(strUrl) = 0) Then
Exit Sub
End If
Command1.Enabled = True

strBuf = Inet1.OpenURL(strUrl)
Form2.Show
Form2.Text1.Text = strBuf

End Sub

Function Getsource() As String
Dim strBuf As String
Dim strUrl As String

strBuf = Inet1.OpenURL(strUrl) 'ファイル内容を取得

Getsource = strBuf
End Function

No.1 ベストアンサー 回答者： zerosix 回答日時： 2002/01/24 17:08

Open "test.html" For Write As #1

Print　#1,strbuf
Close #1