try that:

[VBA]
Dim Temp As String, val As String

If Len(val) > 8 Then
Temp = Left(val, Len(val) - 4) & Right(val, 2)
val = Temp
End If
[/VBA]