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