Imports System.Collections.Specialized
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

        Dim markStatus As New NameValueCollection
        Dim key As String
        Dim values() As String

        markStatus.Add("Very High", "80")
        markStatus.Add("High", "60")
        markStatus.Add("medium", "50")
        markStatus.Add("Pass", "40")

        For Each key In markStatus.Keys
            values = markStatus.GetValues(key)
            For Each value As String In values
                MsgBox(key & " - " & value)
            Next value
        Next key

    End Sub
End Class