Je trouve ça nul pour un débutant ! L'interêt d'une source pour quelqu'un qui connait rien c'est d'avoir les explications, pas des lignes de code sans intérêts.
En gros cette source ne contient aucun commentaire, le code n'est pas indenté (bonne habitude à donnée à un débutant) !
Pour conclure, si vous désirez apprendre quelque chose à ce rythme, consulter l'aide de VB vous irez plus vite !

Moi j'aime bien. Au moins, c'est à la hauteur de ce pourquoi c'est destiné, et il y a même des commantaires.
Pour donner de bonnes habitudes aux débutants, je conseillerais d'utiliser la fonction RGB() pour créer les couleurs plutôt que d'utiliser des chiffres qui ne donnent aucune indication. Sinon, on peut aussi penser aux constantes déjà toutes faites :
vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite

C'est pourri comme truc :
- rien ne marche !
- code sans indentation = illisible !
- pas de commantaires
- le shell sous windows pour des fichiers d'aide, on a vu mieux !
- la source mise dans un répertoire mis dans un répertoire mis dans un répertoire....  c'est lourd !
- Pour le design c'est sans commantaires !

Le programme inverse existe déjà sur le site. Et je trouve que ce sens de recherche peut être utile !
Par contre, c'est un peu chiant que la couleur change sur la validation des combo, avec la souris ça oblige à changer de control. sur un "change" ou un "click" ça serrait peut être mieux, non ?

ça marche pas terrible, ça retourne toujours faux
Et il y a d'autres erreurs,
quand tu fais
    Dim s1, s2 As String
    Dim a, id, c, d As Long
S2 est déclaré comme string et s1 comme Variant, de même, a, id, c sont des variant et d est long.
Pour faire bien :
    Dim S1 As String, s2 As String
    Dim a As String, id As String, c As String, d As String

Autre erreur, comment tu fais avec un tableau dont le premier indice n'est pas 0 ? Tu n'a pas le droit de le trié ?

En attendant que ça marche...

Super bien pensé ton truc !
Par contre, utilise un système de cryptage pour le texte car il est lisible en ouvrant l'image avec un éditeur de texte.
8/10

Pas mal, ça marche bien !
Trois petites remarques pour améliorer ?

Pour éviter d'avoir un tableau de longeur fixe qui récupère le texte il faut peut être utiliser un ReDim Table (0 to FileLen(Text1.text)) ou l'instruction LOF(1). Cependant pour être utilie, cela impose de mettre un caractère par indice et non une ligne comme tu le fais.

Pour ouvrir un fichier, au lieu d'utiliser #1 par défaut, on peut utiliser FreeFile, c'est mieux et moins risqué si on ouvre plusieurs fichiers en même temps !

Dernière remarque, pour utiliser plusieurs langues, on peut utiliser un fichier de ressources, c'est fait pour et ça permet de s'adapter à la langue par défaut de windows !

C'est vrai que les notes sont complètement fausses ! Un peu domage pour un soft qui n'a aucune autre utilité que de jouer de la musique.
Pour remonter le niveau voila la correction avec les bonnes valeurs :

Private Sub Music(Note As String)
Select Case Note
    Case "Do":
        Beep 263, 250
    Case "Ré":
        Beep 294, 250
    Case "Mi":
        Beep 330, 250
    Case "Fa":
        Beep 349, 250
    Case "Sol":
        Beep 391, 250
    Case "La":
        Beep 440, 250
    Case "Si":
        Beep 494, 250
End Select
End Sub

Je les ai trouvé sur le net en 2 min... un tout petit effort de ta part aurait fait grand bien !

C'est vrai que c'est comme sur GSM, les graphics sont aussi nuls !
Heureusement, le code marche pas trop mal, il y'a qq commantaires...

Je ne remets pas en cause le côté programmation qui marche apparemment très bien, et relativement vite !
Cependant, je ne vois pas très bien l'intérêt de calculer des nombres aussi grands, ou du moins avec une aussi grande précision.
Enfin, du bon boulo quand même !