Boa tarde colegas.
Tenho uma divisão para exibir na textbox (parcela) como na figura abaixo:
Uso o código:

Private Sub vlricms_Change()

   'Comando para só aceitar números
   If Not IsNumeric(vlricms.Text) Then vlricms.Text = Empty

   Dim V1 As Double

     If vlricms Then
     V1 = CDbl(vlricms)
          End If

     
     
     parcela = V1 / 48
     

End Sub

Preciso de apenas duas casas depois da virgula.