dim a variant
dim b variant

if a < b then
   A処理
else
   B処理


というコーディングで
例えばaが9.9、bが12.0だとA処理をせずにB処理をしてしまいます
なぜでしょうか？

Variant 型で受けている為に元のデータが String 型 の場合は当然 a の方が大きいので
そのようになります。
数値として比較したいのなら、変数(元データ) を数値にしてから比較して下さい。

Private Sub Command1_Click()
    Dim a As Variant
    Dim b As Variant
    a = "9.9"　　
    b = "12.0"

'    a = CDbl("9.9")
'    b = CDbl("12.0")

    If a < b Then
      Stop
    Else
        Stop
    End If
End Sub

ありがとうございます。