这个代码怎么读取服务器上的数据

Private Sub Timer1_Timer()
Dim i As Integer
Dim strLin As String
Dim d() As String
Dim Myd As Integer
Myd = CInt(Day(Date))   '读取计算机的日期


Open App.Path & "\wkzbb.data" For Input As #1    '打开文件读。’...........这个地方怎么改成读取服务器上的地址
   For i = 1 To Myd - 1
      Line Input #1, strLin     '读取一行数据到变量。
   Next i
   Line Input #1, strLin     '读取一行数据到变量。
Close #1

d = Split(strLin, " ")
If CInt(d(0)) <> Myd Then
   MsgBox "检查文件,今日数据错误!"
   End
End If

'显示照片
For i = 0 To 4
   Picture1(i).Picture = LoadPicture(App.Path & "/images/" & d(i + 1) & ".JPG")’...........这个地方怎么改成读取服务器上的地址

Next i
End Sub