Bueno... pues, honestamente no he mirado a fondo tu código, pero veamos esta parte:
Private Sub txtCent_Change()
txtCent.Text = Val(txtCent.Text)
txtFahr.Text = 32 + 1.8 * Val(txtCent.Text)
vsbTemp.Value = Val(txtCent.Text)
End Sub
... sería:
Private Sub txtCent_Change()
txtCent.Text = Val(txtCent.Text)
txtFahr.Text = Round(32 + 1.8 * Val(txtCent.Text),2)
vsbTemp.Value = Val(txtCent.Text)
End Sub
... si es que con 2 decimales te es suficiente, sino le pones la cantidad que te haga falta.
Suerte.