Копирование файла в папках разных сетевых доменов - VBA

Формулировка задачи:

Добрый день, уважаемые знатоки! Просьба помочь и подсказать правильное решение. Имеется рабочий код:

Dim sFileName As String, sNewFileName As String
 sFileName = "\\10.13.205.144\test\BL"
   sNewFileName = "\\10.13.205.126\default\BL"
      FileCopy sFileName, sNewFileName

С его помощью копирую файлы из одной папки в другую, находящиеся в пределах одного сетевого домена. Сейчас возникла необходимость копировать в папки с другим IP, например - 132.7.100.20 и в этом случае вышеприведенный код уже не работает. Как решить проблему? Заранее благодарен.

Решение задачи: «Копирование файла в папках разных сетевых доменов»

textual
                            Листинг программы 
                        
    Dim sFileName As String, sNewFileName As String, ip$
    sFileName = "\\10.13.205.144\test\BL"
    sNewFileName = "\\10.13.205.126\default\BL"
    
    Const заготовка1 = "\\###\test\BL"
    Const заготовка2 = "\\###\default\BL"
    
    ip = InputBox("Введите IP", , "10.13.205.144")
    sFileName = Replace(заготовка1, "###", ip)
    sNewFileName = Replace(заготовка2, "###", ip)
   
   MsgBox "Адреса" & vbLf & sFileName & vbLf & sNewFileName