下面是一个用于VB6远程传输文件到指定地址的代码示例：
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Sub RemoteFileTransfer()
Dim urlString As String
Dim localPath As String '远程文件的URL地址
urlString = "http://www.tugaga.com/file.txt" '本地保存路径和文件名
localPath = "C:\folder\file.txt" '下载并保存文件
If DownloadFile(urlString, localPath) Then
MsgBox "文件下载成功！"
Else
MsgBox "文件下载失败！"
End If
End Sub
Function DownloadFile(ByVal url As String, ByVal saveAs As String) As Boolean' 使用URLDownloadToFile函数进行文件下载' 返回值为0表示下载成功，否则下载失败
Dim returnValue As Long
returnValue = URLDownloadToFile(0, url, saveAs, 0, 0)
DownloadFile = (returnValue = 0)
End Function
土嘎嘎技术网友情提示：该代码使用了VB6的`URLDownloadToFile`函数从指定URL下载文件，并将其保存到本地指定的路径上。你可以根据需要修改`urlString`和`localPath`变量来适应你的具体需求。
在使用该代码之前，请确保你已经正确引用了`urlmon.dll`库。你可以通过在项目中选择“工具”->“引用”来添加引用。
此外，要确保你的VB6开发环境已经正确安装并配置了相关的网络代理设置（如果你所在的网络需要代理访问）以及其他必要的运行时组件。