How To Return A Dollar Value As A Text String

Hi, I received an interesting request, involving VBA and how to return a stock price dollar value in a text character string rather that actual numbers.

Like (I=1,M=2,E=0) instead of showing cost price is 12.00
it shows IM.EE.

Kind of like code returning a special code.

Well, here is my rendition of it. It may help a few of you all. Of
course there are different ways to do this depending on the person. So, ACTUAL IMPLEMENTATIONS PROBABLY WILL VARY!

Sub ret_val()


        
    Dim strRetVal As String
    
    'strTemp = me.txtStockPrice
    strRetVal = parse_value("12.00")

    
End Sub

Function parse_value(passed_val) As String

        
    Dim strTemp As String
    Dim strDigit As String
    Dim intLen As Integer
    Dim intCount As Integer
    Dim strResult As String
    Dim strResultA As String
    Dim strResultB As String
    

    strTemp = passed_val
    
    'examine each digit of the string
    
    'first get the length of the string
    intLen = Len(strTemp)
    
    For intCount = 1 To intLen
        strDigit = Mid(strTemp, intCount, 1)
        Select Case strDigit
            'I=1,M=2,E=0
            Case 0
               strResult = strResult & "E"
            Case 1
                strResult = strResult & "I"
            Case 2
                strResult = strResult & "M"
            Case 3
                strResult = strResult & "?"
        End Select
        
        
    Next
    
    'now format with the decimals
    strResult = Trim(strResult)
    intLen = Len(strResult)
    
    'get the letters before the decimal
    strResultA = Mid(strResult, 1, intLen - 2)
    
    'get the letters after the decimal
    strResultB = Right(strResult, 2)
    
    'combine the 2
    strResult = strResultA & "." & strResultB
    
    
    parse_value = strResult
End Function

By the way, if you got or are getting value from the VBA information, please click the "Donate" button to give me a small token of your appreciation, thanks!

---

These posts may help answer your question too...

---

Learn Access VBA: Understand Tables, Queries, Forms, and Reports

October 13, 2025 ms-access-forms, ms-access-query, vba-tutorial No Comments

Learn Access VBA: From Zero to Database Hero If you’ve ever opened Microsoft Access and wondered how all the pieces fit together — tables, queries, forms, and reports — this tutorial is made for you. In just a few minutes, you’ll understand how Access works behind the scenes and see how VBA (Visual Basic for […]

How to Fix Run Time Error 1004 in Excel

August 16, 2025 Excel related, ms-excel-vba No Comments

If you work with Microsoft Excel frequently, chances ar ling for a solution. Fortunately, this error is well-documented, and there are several ways to resolve it. In this article, we’ll explore the causes of run time error 1004, practical steps to fix it, and preventive measures to reduce the chances of it happening again. What […]

Error 91: Object Variable or With Block Variable Not Set — Causes and Solutions

August 11, 2025 Errors, Excel related No Comments

If you work with VBA (Visual Basic for Applications) in Excel, Access, Word, or other Microsoft Office programs, you’ve probably come across the dreaded Error 91 at least once: Run-time error ‘91’: Object variable or With block variable not set This error can be frustrating, especially if your code seems perfectly fine at first glance. […]

How To Escape Apostrophe In SQL Update Query

April 23, 2024 ms-access-query No Comments

If you are looping a table with thousands of records, you’ll probably run into at least one that has an apostrophe in the field name. Like “Mike’s” or “M’cormick”, or something else. Anyway, here is one way to escape the string when you are doing your update query. Option Compare Database Sub YDriveLoop() ‘4/23/24 erik@loeblcomservices.com […]

Support these sponsors: