Private Sub butInstallieren_Click()
Dim file$
file = Dir("Dateiname")
If file = "" Then
file = Dir("Dateiname")
End If
If file = "" Then
file = Dir("Dateiname")
End If
If file = "" Then
file = Dir("Dateiname")
End If
If file = "" Then
MsgBox "Error - Das Programm konnte nicht den richtigen Ordner finden."
End If
End Sub

PC's sind dazu da Probleme zu l?sen, die wir ohne sie gar nicht h?tten