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....

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....

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.

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