>>IO.File.Create
これが原因
以下の書き方ではいかんのか？

If IO.File.Exists("smpl.txt") Then
　Dim Reader As New IO.StreamReader("smpl.txt", System.Text.Encoding.GetEncoding("Shift-JIS"))
　Do While Reader.Peek >= 0
　　ListBox1.Items.Add(Reader.ReadLine())
　Loop
　Reader.Close()
else
　IO.File.Create("smpl.txt")
End If