Modul aufrufe; Fehlermeldung

Private Sub CommandButton3_Click()
'Bestellung ändern
'Suche der Auftragsnummer
Dim Spalte As String
Spalte = "Auftragsnummer"
Set AuftragsNummerSP = Sheets("Erfassung").Rows(1).Find( _
what:=Spalte, _
LookAt:=xlWhole, _
LookIn:=xlValues)
Dim AuftragsNummer As Range
Set AuftragsNummer = Sheets("Erfassung").Columns(AuftragsNummerSP.Column).Find( _
what:=TextBox1.Text, _
LookAt:=xlWhole, _
LookIn:=xlValues)
'Suche der Bestellnummer
Dim SpalteBest As String
SpalteBest = "Bestellnummer"
Set BestellNummerSP = Sheets("Erfassung").Rows(1).Find( _
what:=SpalteBest, _
LookAt:=xlWhole, _
LookIn:=xlValues)
Dim Var As Integer
With Workbooks(RVWBName).Sheets("Erfassung")
Var = MsgBox(("Änderungen zum Auftrag" & vbLf & _
" aufnehmen?")
End With
If Var = 7 Then
Exit Sub
End If
'nein! Bestellung nicht ändern
If Var = 6 Then
Call ÄNDERUNGSMODUL
End If
Beep
End Sub