Private Sub txtFIN_Enter()
With txtFIN
    If .Text = "" Then
    .Text = "W09" & txtTyp.Text
    .SelStart = 0
    .SelLength = Len(.Text)
    End If
End With
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!