You mean something like that:
Dim wsh as Worksheet
Dim X As String, Y As String
Dim i as Integer
Set wsh = ThiWorkbook.Worksheets("Sheet1")
For i = 2 to 200
X = CStr(wsh.Range("G" & i))
Y = Mid(X, 9, 2) & Mid(X, 5, 3) & Right(X, 2)
wsh.Range("H" & i) = Y
Next i
Set wsh = Nothing