Private Sub TelevisionFrequencySample()
    ' Print the picture and sound frequencies of all of the broadcast television channels.

    Dim IntChannel As Integer
    For IntChannel = 2 To 83
        Debug.Print "P " & TelevisionFrequency(IntChannel, False, "Picture") & " " & IntChannel
        Debug.Print "S " & TelevisionFrequency(IntChannel, False, "Sound")
    Next IntChannel
End Sub