[Admiral]

Dim h As Integer = -1 »

Из каких соображений -1?
-1 всё же нужно, но в другом месте

Код:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim h As Integer = 0 REM а вдруг дисков вообще нет :), из концепции безопасного кода
        Do Until h = My.Computer.FileSystem.Drives.Count - 1 REM нумерация с нуля, так что на один элемент меньше
            h = h + 1
            RichTextBox1.Text = RichTextBox1.Text & My.Computer.FileSystem.Drives(h).Name
        Loop
    End Sub