テキストボックスから数値を比較する際のエラー

Question

ユーザーから2つの値を入力し、最初の値と2番目の値を比較する2つのテキストボックスがあります。第1の値が第2の値よりも小さい場合、ユーザは値を再び入力しなければならないループに入る。

私が問題になるのは、テキストボックスに10と9.9を入力すると、ループに入り、10が9.9未満であるということです。これは10,100と1000でのみ発生します。お手伝いください。

整数型の両方にLong型の変数を定義して割り当てようとしていて、それを比較しても、ちょうどハングするだけです。助けてください

ここに以下のコードがあります。

If Mean < LSLValue Then 
      MsgBox "Please enter a numeric value greater than LSL as Nominal Value" 
      Me.DimnTxt.Value = InputBox("Enter the Nominal") 
      Me.LSLTxt.Value = InputBox("Enter the LSL") 
      Mean = Me.DimnTxt.Value 
      LSLValue = Me.LSLTxt.Value 
End If 
Loop Until Mean >= LSLValue 

Answer 1

数字の代わりにテキストを比較している可能性があります。 数値に変換して比較してみてください。 EG：

if CDbl(Textbox1.value) < CDbl(Textbox2.value) then 
'.... 
end if