fdlg.Show("Load File","Load File","Cancel","",Null)
Dim fle As String
fle = fdlg.FilePath
lblfilename.text = fle & "/" & fdlg.ChosenName
'Msgbox(fle & " " & fdlg.ChosenName, "test")
Dim List1 As List
List1 = File.ReadList(File.DirrootExternal, fdlg.ChosenName)
lblphonenumber.text = File.ReadString(File.DirrootExternal, fdlg.ChosenName)