Read 2 dimentional array

Dim s As String = ""

Dim bound0 As Integer = penampunganNilaiHujan.GetUpperBound(0)
Dim bound1 As Integer = penampunganNilaiHujan.GetUpperBound(1)

' Loop over all elements.
For i As Integer = 0 To bound0
    For x As Integer = 0 To bound1
        ' Get element.
        Dim s1 As String = penampunganNilaiHujan(i, x)
        s = s & s1 & ","
    Next
    s = s & Environment.NewLine
Next
MsgBox(s)