Signo moneda en listbox de acuerdo a código de matriz

Pero no comentas en cuál columna quieres el signo de pesos.

Ayúdanos a ayudarte proporcionando toda la información necesaria.

----

Vamos a suponer que la columna con la moneda es la 5.

Entonces:

Option Explicit
'
Dim a As Variant    'Al inicio del código
'
Private Sub TextBox1_Change()
  Call FilterData
End Sub
'
Sub FilterData()
  Dim txt1 As String, txt2 As String, txt3 As String
  Dim b As Variant
  Dim i As Long, j As Long, k As Long
  '
  ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
  ListBox1.Clear
  For i = 1 To UBound(a, 1)
    If TextBox1.Value = "" Then txt1 = a(i, 1) Else txt1 = TextBox1.Value
    If LCase(a(i, 1)) Like "*" & LCase(txt1) & "*" Then
      j = j + 1
      For k = 1 To UBound(a, 2)
        b(j, k) = a(i, k)
        If k = 5 Then
          b(j, k) = Format(b(j, k), "$ #,##0.00")
        End If
      Next
    End If
  Next i
  If j > 0 Then ListBox1.List = b
End Sub
'
Private Sub userform_initialize()
  a = Sheets("Hoja11").Range("A2:K" & Sheets("Hoja11").Range("A" & Rows.Count).End(3)).Value
  ListBox1.ColumnCount = UBound(a, 2)
End Sub

¡Gracias!  total preciso era la columna 5 y 6 realice otro if para la columna 6 y funciono perfecto mil y mil gracias!!!!!!