Visual Basic Programm funktioniert auf anderen Computern nicht

Imports System.Net
Imports System.IO
Imports Microsoft.WindowsAPICodePack.Taskbar
Public Class Form1
    Dim TBM As TaskbarManager = TaskbarManager.Instance
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Update start  
        Dim Client As New WebClient()
        Client.Headers.Add("user-agent", "Mozilla/4.0; Windows NT 6.1")  
        Dim txt As Stream = Client.OpenRead("http://webserver.kp/homeconnecter/version.txt")  
        Dim sr As New StreamReader(txt)
        Dim zeile As String
        Dim a As String
        Dim aktuelle_version As String
        'Aktuelle Version einstellen start  
        aktuelle_version = "1.3"  
        'Aktuelle Version einstellen ende  
        Do Until sr.Peek() = -1
            zeile = sr.ReadLine()
            If zeile <> aktuelle_version Then
                a = MsgBox("ACHTUNG: Es ist ein neues Update verfügbar." & vbCrLf & "Möchtest du dieses nun Laden?", vbYesNo, "Update verfügbar")  
                If a = vbYes Then
                    Process.Start("http://webserver.kp/homeconnecter/download/homeconnecterV" & aktuelle_version & ".exe")  
                    End
                End If
            End If
        Loop
        sr.Close()
        'Update ende  

        Zeitanzeige.Text = DateTime.Today
        prozessbar.Value = "1"  
        TBM.SetProgressValue("1", "100")  
        TBM.SetProgressState(TaskbarProgressBarState.Normal)
    End Sub


    Private Sub benutzername_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles benutzername.TextChanged
        If benutzername.Text <> "" Then  
            prozessbar.Value = "50"  
            TBM.SetProgressValue("50", "100")  
        Else
            prozessbar.Value = "1"  
            TBM.SetProgressValue("1", "100")  
        End If
    End Sub

    Private Sub passwort_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles passwort.TextChanged
        If passwort.Text <> "" And benutzername.Text <> "" Then  
            prozessbar.Value = "100"  
            TBM.SetProgressValue("100", "100")  
        Else
            prozessbar.Value = "50"  
            TBM.SetProgressValue("50", "100")  
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Message Box  
        If laufwerk_home.Checked = False And laufwerk_schueler.Checked = False And laufwerk_klasse.Checked = False Then
            TBM.SetProgressState(TaskbarProgressBarState.Error)
            MsgBox("Es wurde kein Laufwerk angegeben", vbCritical, Title:="Error")  
            TBM.SetProgressState(TaskbarProgressBarState.Normal)
            Exit Sub
        End If
        If benutzername.Text = "" Or passwort.Text = "" Then  
            TBM.SetProgressState(TaskbarProgressBarState.Error)
            MsgBox("Bitte geben Sie einen Benutzername und ein Passwort an.", vbCritical, Title:="Error")  
            TBM.SetProgressState(TaskbarProgressBarState.Normal)
            Exit Sub
        End If
        TBM.SetProgressState(TaskbarProgressBarState.Indeterminate)
        MsgBox("Es kann bis zu 30 Sekunden dauern, bis sich ein neues Fenster öffnet.", vbInformation, Title:="Information")  
        'Verbinden  
        Dim CMDString_home As String
        Dim CMDString_klasse As String
        Dim CMDString_schueler As String
        Dim ordner_home As String
        Dim ordner_klasse As String
        Dim ordner_schueler As String


        If laufwerk_home.Checked = True Then
            ordner_home = "windows"  
            CMDString_home = "cmd.exe /C start explorer.exe ftp://" & benutzername.Text & ":" & passwort.Text & "@10.1.1.253/" & ordner_home  
            Shell(CMDString_home)
        End If


        If laufwerk_klasse.Checked = True Then
            ordner_klasse = "tausch_klasse"  
            CMDString_klasse = "cmd.exe /C start explorer.exe ftp://" & benutzername.Text & ":" & passwort.Text & "@10.1.1.253/" & ordner_klasse  
            Shell(CMDString_klasse)
        End If


        If laufwerk_schueler.Checked = True Then
            ordner_schueler = "tausch_schueler"  
            CMDString_schueler = "cmd.exe /C start explorer.exe ftp://" & benutzername.Text & ":" & passwort.Text & "@10.1.1.253/" & ordner_schueler  
            Shell(CMDString_schueler)
        End If
        TBM.SetProgressState(TaskbarProgressBarState.Normal)
    End Sub