Sub OdczytPliku()

Dim i As Long, suma As Double, liczba As Double
Dim srednia As Double, wariancja As Double, odchylka As Double
i = 0
'Otwieramy plik
Open "C:\Documents and Settings\Admin\Pulpit\test.txt" For Input As #1

'odczytujemy w pętli dane z pliku
Do While Not EOF(1)
     Input #1, liczba
suma = suma + liczba
    i = i + 1
Loop
Close #1
srednia = suma / i
MsgBox srednia
'-------------------------------------------------------
Open "C:\Documents and Settings\Admin\Pulpit\test.txt" For Input As #1
Do While Not EOF(1)
     Input #1, liczba
wariancja = wariancja + (srednia - liczba) ^ 2
Loop
Close #1
wariancja = wariancja / i
MsgBox wariancja
odchylka = wariancja ^ 0.5
MsgBox odchylka
End Sub

Sub OdczytPliku()

Dim i As Long, suma As Double, liczba As Double
i = 0
'Otwieramy plik
Open "C:\Documents and Settings\Admin\Pulpit\test.txt" For Input As #1

'odczytujemy w pętli dane z pliku
Do While Not EOF(1)
     Input #1, liczba
suma = suma + liczba
    i = i + 1
Loop

Close #1
MsgBox suma / i
End Sub

Private Sub Command1_Click()

Dim oDlg As New Class1
Dim WindowHandle As Long
Dim strPath As String
Dim strExtension As String
Dim w As Double

WindowHandle = oDlg.GetWindowHandle("ThunderDFrame", Me.Caption)
strExtension = "Plik tekstowy(*.txt)" & Chr(0) & "*.txt"

strPath = Trim(oDlg.OpenDialog(WindowHandle, strExtension, 1, "Otwórz"))
If strPath = "" Then Exit Sub

Set oDlg = Nothing

Dim vTab() As String


OdczytPliku strPath, vTab


End Sub

Sub OdczytPliku(strPlik As String, ByRef vTab() As String)

Dim i As Long
i = 0
'Otwieramy plik
Open strPlik For Input As #1

'odczytujemy w pętli dane z pliku
Do While Not EOF(1)
    ReDim Preserve vTab(0 To i)
    Input #1, vTab(i)
    i = i + 1
Loop

Close #1

End Sub