Private Sub cboVisualBasic_Change()
  With cboVisualBasic
    If Len(.Text) > 0 Then
      sPfad = "E:\VisualBasic\" & .Text
      Ausfuehren sPfad
      Unload Me
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de