>>240で解決してたけど、一応正攻法みたいな物

Sub 有効数字2桁()
　　Dim A1 As Double
　　Dim L As Integer
　　Dim S As String
　　Dim F As String
　　A1 = Range("A1")
　　L = 1 - Int(Log(A1) / Log(10#))
　　If L > 0 Then
　　　　F = F & "." & String(L, "0")
　　Else
　　　　F = "0"
　　End If
　　S = Format(WorksheetFunction.RoundDown(A1, L), F)
　　Debug.Print S
End Sub