Private Sub Command1_Click()
Dim monos As String
If monos > 135 Then

If monos >= 136 And monos <= 146 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 1"
End If

If monos >= 147 And monos <= 157 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 2"
End If


If monos >= 158 And monos <= 168 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 3"
End If

If monos >= 169 And monos <= 179 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 4"
End If

If monos >= 180 And monos <= 190 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 5"
End If

If monos >= 191 And monos <= 201 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 6"
End If

If monos >= 202 And monos <= 212 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 7"
End If

If monos >= 213 And monos <= 223 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 8"
End If

If monos >= 224 And monos <= 234 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 9"
End If

If monos >= 235 And monos <= 245 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"
MsgBox "Barril: 10"
End If

Else
If monos > 100 Then

If monos >= 101 And monos <= 107 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 1"
End If

If monos >= 108 And monos <= 114 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 2"
End If

If monos >= 115 And monos <= 121 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 3"
End If

If monos >= 122 And monos <= 128 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 4"
End If

If monos >= 129 And monos <= 135 Then
MsgBox "Cocos: 100"
MsgBox "Jaulas: 5"

End If


Else
MsgBox "Cocos: " & monos

End If
End If

End Sub

Mono, cocos, barril

Visual Basic