Tuliskan kode program visual basic agar hasilnya: 2 4 6 8 2 4 6 2 4 2

Module Program       
Sub Main()
           Dim a, b As Integer
           For a = 8 To 2 Step -2
           For b = 2 To a Step 2
         Write(b & " ")         

        Next
        WriteLine()
        Next       
         ReadLine()

        End Sub   
End Module