Sub ConvertToBritish(americanText As String) As String
    Dim britishText As String = americanText
    
    britishText = britishText.Replace("apartment", "flat")
    britishText = britishText.Replace("elevator", "lift")
    britishText = britishText.Replace("trash", "rubbish")
    britishText = britishText.Replace("sidewalk", "pavement")
    britishText = britishText.Replace("cookie", "biscuit")
    britishText = britishText.Replace("candy", "sweets")
    britishText = britishText.Replace("flashlight", "torch")
    britishText = britishText.Replace("gasoline", "petrol")
    britishText = britishText.Replace("hood", "bonnet")
    britishText = britishText.Replace("trunk", "boot")
    britishText = britishText.Replace("diaper", "nappy")
    britishText = britishText.Replace("soccer", "football")
    britishText = britishText.Replace("faucet", "tap")
    britishText = britishText.Replace("color", "colour")
    britishText = britishText.Replace("neighbor", "neighbour")
    britishText = britishText.Replace("center", "centre")
    britishText = britishText.Replace("theater", "theatre")
    britishText = britishText.Replace("license plate", "number plate")
    britishText = britishText.Replace("ocean", "pond")
    Return britishText
End Sub