Veja com funcionou aqui, depois basta trocar os valores pelo nome dos textboxs

Private Sub Command1_Click()
Dim valor_Quant_porCaixa As Currency
Dim valor_Unitario As Currency

valor_Compra = "149,16"
valor_Quant_porCaixa = "20"

valor_Unitario = valor_Compra / valor_Quant_porCaixa
MsgBox CCur(valor_Unitario)
End Sub