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]