CSSでソースコードを折り返し表示しない

プログラムは折り返しが多いと見づらい。パソコン表示だと気にならないが、スマホ表示だととても気になる。

pre.code{
    font-size: 80%;
    max-height: 200px;
    background:#f7f7f7;
    white-space: pre;
    overflow: auto;
}

Sub 長いコードを作る目的で作ったコード抜粋()
    
    Dim iYear As Integer, iMonth As Integer, iDay As Integer
    Dim sMsg As String
    
    'テストデータ
    iYear = 2023
    iMonth = 2
    iDay = 30
    
    If iYear = 2022 And iMonth = 1 And iDay = 1 Then
        sMsg = "2022年1月1日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 2 Then
        sMsg = "2022年1月2日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 3 Then
        sMsg = "2022年1月3日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 4 Then
        sMsg = "2022年1月4日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 5 Then
        sMsg = "2022年1月5日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 6 Then
        sMsg = "2022年1月6日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 7 Then
        sMsg = "2022年1月7日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 8 Then
        sMsg = "2022年1月8日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 9 Then
        sMsg = "2022年1月9日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 10 Then
        sMsg = "2022年1月10日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 11 Then
        sMsg = "2022年1月11日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 12 Then
        sMsg = "2022年1月12日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 13 Then
        sMsg = "2022年1月13日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 14 Then
        sMsg = "2022年1月14日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 15 Then
        sMsg = "2022年1月15日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 16 Then
        sMsg = "2022年1月16日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 17 Then
        sMsg = "2022年1月17日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 18 Then
        sMsg = "2022年1月18日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 19 Then
        sMsg = "2022年1月19日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 20 Then
        sMsg = "2022年1月20日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 21 Then
        sMsg = "2022年1月21日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 22 Then
        sMsg = "2022年1月22日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 23 Then
        sMsg = "2022年1月23日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 24 Then
        sMsg = "2022年1月24日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 25 Then
        sMsg = "2022年1月25日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 26 Then
        sMsg = "2022年1月26日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 27 Then
        sMsg = "2022年1月27日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 28 Then
        sMsg = "2022年1月28日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 29 Then
        sMsg = "2022年1月29日"
    ElseIf iYear = 2022 And iMonth = 1 And iDay = 30 Then
        sMsg = "2022年1月30日"
    Else
        sMsg = "日付が不正です"
    End If
    
    Debug.Print sMsg
    
End Sub

以上。