Проверка количества монет

If money>=600 and money <= 1000 then 
    'Можно еще написать так: If money > 600 and money < 1000 then 
    'Ваш код, при положительном условии например:
    text1="money = " & money
end if

Select case money
case 600 to 1000
    'Ваш код, при положительном условии например:
    text1="money = " & money
end select

Private Sub Command1_Click()
    Do: Money = InputBox("Money ?", , 999)
    Loop Until IsNumeric(Money)
    
    Const x = 600, y = 1000
    
'    If Money >= x And Money <= y Then
'        'Можно еще написать так: If money > 600 and money < 1000 then
'        'Ваш код, при положительном условии например:
'        Text1 = "money = " & Money
'    ElseIf Money < x Then
'        Text1 = "money < " & x & " ! //..  " & Money
'        Beep
'    Else
'        Text1 = "money > " & y & " ! //..  " & Money
'        Beep
'    End If
    
    'Вариант № 2
    
    Select Case Money
    Case x To y
        'Ваш код, при положительном условии например:
        Text1 = "money = " & Money
    Case Is < x
        Text1 = "money < " & x & " ! //..  " & Money
        Beep
    Case Is > x
        Text1 = "money > " & y & " ! //..  " & Money
        Beep
    End Select
End Sub