Hælp til noger replace

Hey jeg mangler lidt hjælp til noget Replace. Hvis det bliver intasted et "." vil jeg kunne replace det til et ",". Men jeg kan ikke rigtig få det til at fungere. Min kode omhandler BMI tal og ser sådan ledes ud:

Private Sub CommandButton1_Click()
Dim vaegt As Single
Dim hoejde As Single
Dim BMI As Single


vaegt = TextBox1.Text
hoejde = TextBox2.Text


BMI = vaegt / (hoejde * hoejde)

TextBox3.Text = BMI

End Sub

TAkker på forhånd