Dim pfad As String = "C:\Programme\Internet Explorer\IEXPLORE.EXE -" & _
          "nohome rundll32.exe" & _
          "C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen %1"
        Dim str As String = System.Text.RegularExpressions.Regex.Match(pfad, _
        "\w+\.EXE").Value
        MsgBox(str)

mfgMeik MillerMein beste Code:If then