Private Sub laden()
        Dim Dateipfad As String
        Dim Skin_Laden As New String("", 255)
        Dim Test As String
        Dateipfad = Application.StartupPath & "\calc.ini"
        GetPrivateProfileString("skins", "skin", "Fehler", Skin_Laden, _
          Skin_Laden.Length, Dateipfad)
        TextBox1.Text = Skin_Laden
        Test = TextBox1.Text
        If Directory.Exists(Application.StartupPath & "\skins\" & Test) Then
            MsgBox("ok")
        End If
    End Sub

        If Directory.Exists(Application.StartupPath & "\skins\" & Skin_Laden) _
          Then
            MsgBox("ok")
        End If