Module Module1

Sub Main()
Dim ciencia As Integer
Dim dios As String