Private Sub txtAuftrag_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txtAuftrag.Text = "" Then
        MsgBox "Bitte die BA-Nummer angeben! " & vbCrLf & _
        "Die Angaben können sonst nicht bearbeitet werden", _
        vbInformation, "Eingabefehler"
    txtAuftrag.SetFocus
    End If
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!