iOS Question Adjust Font Size when use DrawTextRotated

Sub MaxFontToFitWidth(text As String, width As Int) As Font
   Dim f As Font
   For i = 5 To 50
     f = Font.CreateNew(i)
     If text.MeasureWidth(f) > width Then
       Exit
     End If
   Next
   Return f
End Sub