Formato de números

[Seskin]

Muy buenas,

Tengo este codigo hecho, basicamente es una calculadora pesetas-euros, mi duda es como puedo poner para que el formato de númerico sea xxxx.xx es decir, con dos decimales?

Código:

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked = True Then
            TextBox2.Text = CStr((CDbl(TextBox1.Text) / 166.386))
            TextBox2.Text = CStr((Val(TextBox2.Text)))
        Else
            RadioButton2.Checked = True
            TextBox2.Text = CStr((CDbl(CDbl(TextBox1.Text) * 166.386)))
            TextBox2.Text = CStr((Val(TextBox2.Text)))
        End If

    End Sub

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If TextBox1.Text = "" Then
            MsgBox("Este campo Moneda está vacio")
        End If
    End Sub
End Class

Gracias y saludos !