Loadtext - Loadpicture

Hvad gør jeg forkert for at kunne loade dette .txt dokument ??
Private Sub åben_Click(Index As Integer)
Select Case Index
Case 2 'Open
CommonDialog1.FileName = "*.txt"
CommonDialog1.ShowOpen
Text1.Text = Loadtext(CommonDialog1.FileName)
Form2.Caption = CommonDialog1.FileTitle & " - Teksteditor"
lblFilNavn.Caption = CommonDialog1.FileName
End Select
End Sub

----------Hvis jeg laver en picturebox og om til picture så virker det ---------

Private Sub åben_Click(Index As Integer)
Select Case Index
Case 2 'Open
CommonDialog1.FileName = "*.bmp"
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Form2.Caption = CommonDialog1.FileTitle & " - Teksteditor"
lblFilNavn.Caption = CommonDialog1.FileName
End Select
End Sub


Fatter det ikke ?