VB-Script und Excel Button

[rider]

Wie wärd damit?

Sub CommandButton1_Click()
   InputBox (Propt,"Wie heißt der Traeger?","Name des Trägers" dim Traegername As String
   Traegername = InputBox("Wie heißt der Traeger?")

ThisWorkbook.Worksheets("Haupt").Copy Position Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")
   ThisWorkbook.Worksheets("copy of Haupt").name = Traegername
End Sub

Beim ersten Punkt meckert der allerdings immer bei dem "dim" rum.

MfG