以下是在VB中上传文件到服务器的基本步骤：

创建HTTP请求对象：使用MSXML库创建一个XMLHTTPRequest对象，它允许向服务器发送HTTP请求。例如：

Dim xhr As Object

Set xhr = CreateObject("MSXML2.XMLHTTP")

打开HTTP请求：使用open方法打开HTTP请求并设置请求的URL、请求类型和异步标志。例如：

xhr.open "POST", "http://example.com/upload.php", True

设置请求头：使用setRequestHeader方法设置请求头，特别是Content-Type头，以指定要上传的文件类型。例如：

xhr.setRequestHeader "Content-Type", "multipart/form-data"

设置请求主体：使用send方法设置请求主体，即要上传的文件数据。可以使用ADODB.Stream对象读取文件数据并将其作为请求主体发送。例如：

Dim fileStream As Object

Set fileStream = CreateObject("ADODB.Stream")

fileStream.Type = 1 'binary'

fileStream.Open

fileStream.LoadFromFile "C:\path\to\file.txt"

xhr.send fileStream.Read(fileStream.Size)

处理响应：等待服务器响应，并处理响应数据。可以使用responseText属性或responseBody属性访问响应数据。例如：

Do While xhr.readyState <> 4

    DoEvents

Loop

MsgBox xhr.responseText

以上是在VB中上传文件到服务器的基本步骤。注意，在进行上传操作时，请确保您有适当的权限和授权，以避免非法上传或安全问题。