Sub writeGroupData(ByRef groupData As Object, ByVal toSheetName As String)
    Dim i, line, valuesWithComma, host

    ThisWorkbook.Sheets(toSheetName).Activate
    Cells.Clear

    host = "test"

    i = 1
    For Each groupName In groupData.Keys
        valuesWithComma = Join(groupData.Item(groupName).Keys, ",")

        line = Join(Array( _
                "values:", valuesWithComma, "@", host & "." & groupName _
              ), " ")

        Cells(i, 1).Value = line
        i = i + 1
    Next groupName
End Sub