Botao para criar módulo

Olá pessoal, estou com um problema com um módulo!
Tenho um form com um botão que ao clicar chama esse módulo. Até ai tudo bem!
Esse módulo cria um atalho no desktop com um nome definido por um TextBox e atribui um ícone á este atalho!
O problema é que não estou conseguindo definir o nome do ícone a ser usado pelo mesmo TextBox.
EXEMPLO: Se eu digitar "12345" no TextBox e clicar no Botão, o módulo vai criar um atalho com o nome "12345" e atribuir o ícone "12345" a ele, mas para atribuir o ícone "12345" ao atalho, no módulo terá que ter o comando ( Const szIconName As String = "12345.ico" ).
Porem, se eu digitar "67890" no TextBox, vai ser criado um atalho com o nome "67890", mas com o ícone "12345" atribuído.
É possível fazer com que ao clicar no botão, alterar os códigos do módulo com um texto pre determinado??
EXEMPLO: Se eu digitar "12345" no TextBox e clicar no Botão, ele altera o código do módulo para ( Const szIconName As String = "12345.ico" ), mas se eu digitar "67890" no TextBox e clicar no Botão, ele altera o código do módulo para ( Const szIconName As String = "67890.ico" ).
Conto com a ajuda de vocês, pois me será muito útil!
Obrigado....

Olá, seja bem vindo ao fórum!
O seu títuto está mal formulado, mas vamos ver se eu entende...
Criar módulo não é o caso, pois você quer criar atalho e não módulo correto?
Pois então. Mude seu título para algo que específique melhor sua necessidade.

Caso eu tenha intendido corretamente, tente:

Basta passar o valor da TextBox para o valor da Const szIconName

Exemplo:
Em vez de fazer assim:
Const szIconName As String = "12345.ico"
Faça assim:
Const szIconName As String = Me.TextBox & ".ico" 'Caso o código estaja no próprio formulário que o chame.
ou
Const szIconName As String = Forms!SeuForm!TextBox & & ".ico" 'Caso o código estaja em um módulo separado.

Se o código estiver em módulo separado, pode criar uma variável glogal e passar o valor do TextBox para ela. Algo assim:

Public strIcone as String 'Seria criado num módulo global também
srtIcone = Me.TextBox 'No botão que chama a função cria atalho, atribuia o valor do TextBox para a variável strIcone
Const szIconName As String = strIcone & ".ico" 'Const szIconName recebe o valor da variável strIcone que já recebeu o valor da TextBox

Caro Marcelo, obrigado pela resposta.
Quanto ao título, já havia tentado ao invés de inserir o código "Const szIconName As String = "12345.ico" no módulo,
inseri Const szIconName As String = t1.value & ".ico" más retornava o erro na parte em vermelho: "Expressão constante obrigatória".
Então pensei em quando clicar no botão, rodar uma macro para entrar no módulo e alterar a linha deste código.
Caso eu digitasse "67890", alterava para "Const szIconName As String = "67890.ico" para depois chama lo.
Tentei usar o código que me forneceu diretamente no botão.
"Const szIconName As String = Me.t1 & ".ico"" onde t1 é o nome do TextBox.
Quando clico no botão, retorna o mesmo erro na parte em vermelho: "Expressão constante obrigatória".
Tentei também criar uma variável global, más retorna o mesmo erro na parte em vermelho: Const szIconName As String = strIcone & ".ico".
O que poderia estar dando errado?

Obrigado....

Se os campos da sua primeira mensagem estiverem corretos,
Faça exatamente as alterações que eu fiz.
Apenas na: Const szIconName As String = Forms!SeuForm!TextBox & & ".ico"
que voce deve alterar o "SeuForm" para o nome do formulário que contem o campo
com o nome do atalho.

Se quiser, podes postar aqui seu aplicativo que damos uma olhada com mais precisão

Esse aplicativo cria um arquivo .BAT para rodar meus filmes, também cria um atalho do mesmo no DESKTOP.
Esse .BAT procura no drive (G:) e também no local onde ele se encontra, se achar o filme em qualquer dos 2 locais, ele roda o filme normalmente, mas se não achar é redirecionado para um arquivo .VBS que retorna a mensagem de que foi movido para outro HD!
Basta digitar o nome do filme para criar o .BAT!
Tenho uma pasta com todas as capas dos filmes em formato .ICO.
Minha intenção era de que ao criar o atalho do .BAT, criasse já com o ícone atribuído á ele!
Segue em anexo o arquivo.

Para melhor entendimento, segue em anexo o conjunto de arquivos usados no projeto.

Percebi que se trata do execel...
Observe que este é um fórum Access...
melhor seria você postar sua dúvida em
um fórum dedicado ao Execel.
De minha parte, infelismente não poderei ajudar.

Muito obrigado pela sua atenção.... Abraço..