Number convert to words Virtual Learning Earning Channel Steps to Add the Macro Open Excel and press ALT + F11 to open the VBA Editor . Click Insert > Module . Copy and paste the code below into the module. Close the VBA Editor and return to Excel. Use the function in a cell like =NumberToWords(A1) . VBA Code for Digit-by-Digit Conversion Function NumberToWords(ByVal MyNumber As String) As String Dim i As Integer Dim Result As String Dim Digit As String ' Loop through each digit in the number For i = 1 To Len(MyNumber) Digit = Mid(MyNumber, i, 1) Select Case Digit Case "0": Result = Result & " Zero" Case "1": Result = Result & " One" Case "2": Result = Result & " Two" ...