Private Sub Command2_Click()Shell App.Path & "\wb.exe " & Text2.Text & Text3.Text & Text1.Text & Text4.TextEnd Sub
Dudenland