Por lo visto son errores de sintaxis, no de logica de programacion. Los errores son los siguientes:



En la tercera linea estas definiendo un nombre de variable con espacios (12 count), lo cual no es permitido



En la linea siguiente estas haciendo lo mismo y ademas utilizas una palabra reservada del lenguaje (For)



En la linea siguiente te hace falta la palabra Dim o dim que se utiliza para declarar variables, el caracter ` no es valido para nombre de variables y Text no es un Tipo (debes profundizar en esto), es un espacio de nombres o Namespace



En la siguiente linea Estas utilizando una palabra reservada del lenguaje (Error), y con el punto quieres indicar que quieres acceder a la propiedad o metodo Message de la clase, el cual no existe. Text, como ya mencione, es un espacio de nombres.



En la siguiente linea (7) el caracter $ es invalido como identificador de variable, CurrentExpress no te genera ningun error, el error en esa parte es que va la palabra reservada As, With se utiliza para asociar a un bloque de instrucciones un bloque de otras instrucciones y Decimal, para ese caso debe de ir precedido de la palabra As.



Esos son todos los errores. Fue un placer ayudarte

Module Module1

Sub Main()

Dim 12 Count As Integer

Dim Number For Double

Const Son`s Birthday As Text

Dim Error.Message As Text

Dim $ CurrentExpress With Decimal

End Sub

End Module

------------------------------------------------------------

Module Module1

Sub Main()

Dim Count(12) As Integer

Dim Number As Double

Const Son`s Birthday = "texto" <------ no se pueden poner variables que tengan mas de 1 palabra ni signos de puntuacion

Dim Error.Message As Text <--- error esta reservado

Dim $ CurrentExpress With Decimal ( esta no se que quiso hacer pero esta mal)

End Sub

End Module

bueno pues no se la verdad lo que quieras puedes marcas exactamente donde estan los errores o que es lo que quieres que haga el programa podrias ser mas especifica