For Each s As NShape In document.Descendants(NFilters.Shape2D, -1)
      If Not IsNothing(s.Tag) Then
      Dim roomInfo As RoomInfo = s.Tag
      Dim roomNumber As String = roomInfo.RoomNumber
      Dim customFontSize as Single = roomInfo.CustomFontSize

      Dim textSize As Single
      If Not String.IsNullOrEmpty(customFontSize ) Then
        textSize = Convert.ToSingle(customFontSize )
        Dim textStyle As New NTextStyle
        textStyle = s.ComposeTextStyle()
        textStyle.FontStyle = New NFontStyle("Arial", textSize)
         NStyle.SetTextStyle(s, textStyle)
       End If
    End If
   Next

For Each s As NShape In document.Descendants(NFilters.Shape2D, -1)
  If Not IsNothing(s.Tag) Then
    Dim roomInfo As RoomInfo = s.Tag
    Dim roomNumber As String = roomInfo.RoomNumber
    Dim customFontSize as Single = roomInfo.CustomFontSize
    Dim textSize As Single

    If Not String.IsNullOrEmpty(customFontSize) Then
     textSize = Convert.ToSingle(customFontSize)
     Dim textStyle As NTextStyle = CType(s.ComposeTextStyle().Clone(), NTextStyle)
     textStyle.FontStyle = New NFontStyle("Arial", textSize)
     NStyle.SetTextStyle(s, textStyle)
    End If
  End If
Next