Public Sub Main()

      Randomize

      Dim raptor_prompt_variable_zzyz As String
      Dim coin As Double

      raptor_prompt_variable_zzyz = "Your number"
      coin = InputBox(raptor_prompt_variable_zzyz)
      If coin > 5 Then
         MsgBox "Number : " + coin
      Else
      End If
   
End Sub