Qual a forma certa para se introduzir a formatacao valor o codigo abaixo ?

Me.Controls("Label_Hiper" & i & "B").Caption = Plan19.Cells(lin, 23).Value,

Quero que a Label "Label_Hiper" & i & "B").Caption , apareça R$

Private Sub Hiper1_Enter()

On Error Resume Next

Dim intervalo As Range
Dim codigo As Integer

Dim lin         As Long
Dim i           As Long
    Application.ScreenUpdating = False
   
   ThisWorkbook.Worksheets("Estoque").Activate

Set intervalo = Plan19.Range("B6:W605")

   For i = 1 To 40   'vai do 1 ao 200
        codigo = Me.Controls("Hiper" & i).Value
        lin = intervalo.Find(codigo, lookat:=1).Row
        Me.Controls("Label_Hiper" & i).Caption = Plan19.Cells(lin, 5).Value
        Me.Controls("Label_Hiper" & i & "A").Caption = Plan19.Cells(lin, 7).Value
        Me.Controls("Label_Hiper" & i & "B").Caption = Plan19.Cells(lin, 23).Value
    Next i
    
                                                                                        '  TextBox4 = Format(TextBox4, "R$ #,##0.00")

    
    Application.ScreenUpdating = True

End Sub