Visual-Basic-Forum VB-Paradise.de

Hallo,
ich versuch mir gerade Vba selber beizubringen.Ich habe probiert eine kleine Abfrage per cmd_click zumachen, d.h. wenn die Auswahl getroffen wurde, soll eine msg box aufgehen wo die Suswahl bestätigt wird, leider sagt er das in der inputbox zeile ein Laufzeitfehler sei, ich komm leider nicht dahinter was ich falsch gemacht habe. Hat jemand ne Idee bzw. nen Tipp ?

Private Sub cmd_Click()

Dim bytVersandart As Byte

bytVersandart = Me.frmVersandart
bytVersandart = InputBox("Geben sie eine Zahl von 1-4 an.", "1: Postpaket", "2: Bote", "3: Express", "4: über Nacht")

Select Case Me.frmVersandart
Case 1
MsgBox "Postpaket ausgewählt."
Case 2
MsgBox "Bote ausgewählt."
Case 3
MsgBox "Epress ausgewählt."
Case 4
MsgBox "über Nacht ausgewählt."
End Select


End Sub

cu

mfg bolle