ChDrive mit ftp Adresse

Ich habe schon im Archiv nach Hilfe gesucht, bin aber leider
nicht fündig geworden. Ich möchte per application Getopen bzw. Getsave eine Ftp-Adresse öffen. Geht soetwas ?
Unten habe ich ein beispiel mit c: gepostet. Das müsste
auf die Adresse 193.167.12.3\bla\bla geändert werden.
Vielen Dank im voraus !!!

Sub Test()
Dim variable As Variant
ChDrive "C"
ChDir "C:\Test"
variable = Application.GetOpenFilename("Namen der Dateien (*.XLS),*.XLS")
If variable = False Then Exit Sub
Workbooks.Open Filename:=variable
End Sub

gruss Stephan