Teil eines Textes verändern per VBA

Sub test()
Dim text As String
Dim newtext As String
text = Cells(1, 1).Value
newtext = Cells(1, 2).Value
'Der folgende Code ist leider nicht sehr flexibel und
'müßte so angepasst werden, dass egal ist, wieviele Stellen
'text und newtext haben z.B. cells(1,1).value=newtext & ggf. Rest(text) ?
If Len(text) = 4 Then
Cells(1, 1).Value = newtext
ElseIf Len(text) = 6 Then
Cells(1, 1).Value = newtext & Right(text, 2)
End If
End Sub