scusa, ma io nel menù apri ho questo codice:

  • Private Sub mnuApri_Click()
    Dim intFileNumIn As Integer
    cd.FileName = ""
    cd.Filter = "File di testo|*.txt"
    cd.ShowOpen
    intFileNumIn = FreeFile
    If cd.FileName <> "" Then
    Open cd.FileName For Input As intFileNumIn
    While Not EOF(1)
    Line Input #intFileNumIn, linea
    txtTesto.Text = txtTesto.Text & linea & vbCrLf
    stringa1 = txtTesto.Text
    flag = True
    Wend
    Close #intFileNumIn
    End If
    End Sub

dove "cd" è un common dialog, "stringa1" è una string e "linea" un altra string

come lo unisco a frmMain.TuaRoutineCheCaricaIlFile sFile??