mappe et netværksdrev

jeg har det her stykke kode der skal mappe et netværksdrev
men hvis der ikke er pass på den account man vil bruge så beder den om pass alligevel og jeg kan ikke sende et linieskift til den så den hopper videre fordi jeg har brugt shell net use
en der har en ide til hvad man kan gøre ved det?
eller en metode til at mappe et netværksdrev internt i ens vb applikation
koden kommer her:

  Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
   
    If FSO.DriveExists("" & txtMountAs.Text & "") Then
       
        prgStatus.SimpleText = "unmounting share: " & txtShare.Text & " on " & ip
       
        Call sharedisconnect(ip)
       
        prgStatus.SimpleText = "mounting share: " & txtShare.Text & " on " & ip
       
        If txtPass.Text = "" Then
       
            Shell "net use " & txtMountAs.Text & ": \\" & ip & "\" & txtShare.Text & " /user:" & txtUser.Text
               
        Else
       
            Shell "net use " & txtMountAs.Text & ": \\" & ip & "\" & txtShare.Text & " /user:" & txtUser.Text & " " & txtPass.Text
               
        End If
       
       
    Else
       
        prgStatus.SimpleText = "mounting share: " & txtShare.Text & " on " & ip
       
        If txtPass.Text = "" Then
       
            Shell "net use " & txtMountAs.Text & ": \\" & ip & "\" & txtShare.Text & " /user:" & txtUser.Text
               
        Else
       
            Shell "net use " & txtMountAs.Text & ": \\" & ip & "\" & txtShare.Text & " /user:" & txtUser.Text & " " & txtPass.Text
               
        End If
       
    End If
   
    Set FSO = Nothing