How to force the display of trailing zeros in variables?

How to force the display of trailing zeros in variables?

In this code, the result should be 0.100 for the variable called "term_tab_a"
but the system removes the trailing zeros and displays 0.1

Private Sub Worksheet_Activate()
   term_tab_a = Worksheets("Terminal Data").Range("S19")
   Range("I46") = "Adj Dim of Cutoff Tab A (Ref " & term_tab_a & ")"
End Sub