Visual Basic.NET - Problemas con los decimales

Hola amigos del foro mi consulta es la siguiente, poseo una caja destinada a un resultado en particular, la cantidad dividido la UF del día, en el cual le indico que debe poseer un maximo de 6 caracteres, pero me manda el resultado compeleto, este es el código que utilizo actualmente:
Sub Existe1()
Dim A As String
Dim sql As New Data.SqlClient.SqlCommand("Select * From Valores_UF1 Where Dia_UF = '" + LABELFECHA.Text + "' and activo=1", conn)
Dim resultado As SqlClient.SqlDataReader
Try
resultado = sql.ExecuteReader()
Catch ex As Exception
MsgBox("error")
Exit Sub
End Try
If resultado.HasRows Then
Do While resultado.Read()
TXTPARCHE3.Text = resultado.Item("Valor_UF")
A = TXTCANTIDAD.Text / TXTPARCHE3.Text
TXTUF.Text = CDec(A)
Loop
Else
MsgBox("Esta Fecha no ha sido ingresada aún.", MsgBoxStyle.Information, "LYH")
TXTDIA.Text = ""
TXTDIA.Focus()
End If
resultado.Close()
End Sub
lo que quiero hacer es lo siguiente:
txtcantidad.text =1000000
txtparche3.text=22.807,67
el resultado que quiero es el siguiente "43,84" y no el completo "43,8448995447584", ya que el maximo que posee en la tabla de datos es de char(10), favor de ayudarme con esta ayuda, lo he intentado todo pero no funciona nada, debe ser algo facil pero no lo puedo hacer, en VB 6.0 lo podia hacer ahora en este no puedo, desde ya muchas gracias.

Hola:

Puedes usar estas 2 funciones:

Redondear valor con decimales
* System:Math.Round(tuValor, numDecimalesQueDeseas)


Formatear el resultado al tipo Currency
* tuValor.tostring({c})