Loops + arrays + string.join

Sub Main()
        Dim fromWhich As String = Console.ReadLine()
        Dim arrayOfFahrenheit(101) As Double
        If fromWhich = "celsius" Then
            For degree As Integer = 0 To 100
                arrayOfFahrenheit(degree) = CDbl((9 / 5) * degree - 32)
            Next
        End If
        Console.WriteLine(String.Join(",", arrayOfFahrenheit))
    End Sub