Pasar campo moneda a una columna de listbox

Necesito pasar datos de unos texbox a un cuadro de lista todo va bien pero el texbox que contiene un valor tipo moneda ejemplo 1.52 al pasar al cuadro de lista me pasa el 1 a una columna y el 52 a la siguiente columna tengo el siguiente codigo.

El problema tengo en el texbox que contiene el precio

Private Sub txt_item_AfterUpdate()

Set C = Me.list_detalle
With C
.ColumnCount = 7
.RowSourceType = "Value List"
.ColumnWidths = "3CM;10CM;2CM;2CM;2CM;2CM;2CM"
.BoundColumn = 7
End With
Set C = Nothing
Dim STR1 As String
Dim STR2 As String
Dim STR3 As Currency
Dim STR4 As String
STR1 = Me.txt_item.Value
STR2 = Me.txt_descripcion.Value
STR3 = Me.txt_precio.Value
STR4 = Me.txt_cantidad.Value
Me.list_detalle = AddItemToTheList(list_detalle, STR1, STR2, STR3, STR4)
Rem cr.code a minute
End If
End Sub

Function AddItemToTheList(CtlListBox As ListBox, ByVal itm1 As String, ByVal ITM2 As String, ByVal ITM3 As Currency, ByVal ITM4 As String)
CtlListBox.AddItem Item:=itm1 & ";" & ITM2 & ";" & ITM3 & ";" & ITM4
End Function