Solved: Remove UCase from string

I have a string from which I'd like to remove four characters (starting from the right), but I'm not sure how to do it. Appreciate some guidance.

[vba]Dim S As String
Dim T As String
S = Sheets("Sheet1").Range("A1")
T = S ' and removing UCase(Right(S, 4)) from S[/vba]

[vba]
Dim T As String
Dim S As Long

With Sheets("Sheet1").Range("A1")
S = Len(.Value) - 4
T = Left(.Value, S)
End With
[/vba]

Yes, that did it. Many thanks!