Sub ConvertSelectiontoGerman() Dim MyNumber MyNumber = Selection.Text Selection.Text = ConvertCurrencyToGerman(ByVal MyNumber) End Sub