ci sono un paio di problemi.
1) nel codice della form relativo al tasto "OK" hai messo il codice
Codice:
Private Sub Cmd_Scrivi_Oroscopo_Click()
Dim mySegno As Long
mySegno = Me.TextBox1.Text '<<< Variare
MsgBox (Oroscopo1(mySegno))
End Sub
ma la variabile mySegno vuole un valore numerico e non una stringa. come pure nel codice del combobox dove metti il codice
Codice:
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Me.ComboBox1.Text
End Sub
poni il valore del textbox = al valore del combobox in formato testo, ma invece devi usare l'espressione ComboBox1.ListIndex + 1 che identifica il n° di voce scelta, per cui diventa un valore numerico (integer o long) in questo modo non ti rimanda errore nel codice del textbox.
in sostanza il codice del combo diventa
Codice:
Private Sub ComboBox1_Change()
y = ComboBox1.ListIndex + 1
End Sub
dichiarando la variabile y come Public a inizio modulo.
Il 2° problema è che ...... la pagina che cerchi nella funzione Oroscopo1 .... non esiste più in quel sito è diventata una cosa del genere
h***p://www.donnad.it/in-intimita/oroscopo-e-sogni/oroscopo-settimanale/ariete-21-marzo-20-aprile-44
e non come è inserito nella funzione
h***p://oroscopo.donnad.it/oroscopo/settimanale/segno/s/
a cui aggiungi solo il valore del segno in scelto in forma numerica