SetFocus lässt sich nicht setzen

Private Sub cmdBwH_Neu_Click()
Dim tb As Object
Application.ScreenUpdating = False
Neues_BwH_Aktenzeichen_Erstellen
frmbasis.Hide
For Each tb In frmreg.Controls
If TypeName(tb) = "Textbox" Then tb.Text = ""
Next tb
With frmreg
.txtregAZ.Text = Sheets("Daten").Range("A2").Text  '''Hier blinkt der Cursor
.txtregeingang.Value = Date
.txtregNachname.SetFocus     '''Hier soll er blinken
.txtregNachname.SelStart = 0
.txtregNachname.SelLength = Len(.txtregNachname.Text)
.Show
End With
Application.ScreenUpdating = True
End Sub