Version 1.0.3.

Version 1.0.3:
Fixed a bug causing the Monte Carlo procedure to produce exactly the same dataset

Version 1.0.2:
Fixed the duplicates algorithm so that compares the two variable names that have been formatted to 8 characters or fewer using the "format_mplus" function
Modified the "format_mplus" algorithm for formatting the Mplus variable names.
Fixed a bug in the observed correlation tables that would not allow you to display variable names / labels.

Version 1.0.1:
Fixed bug in Fit Statistics tabular output where the DF and p were not displayed for the chi-square statistic
Fixed a bug in which MEANS/INTERCEPTS/THRESHOLDS were not properly loaded from the sample statistics for categorical variables

Author: Zendaug

ArrayFunctions.bas

@@ -136,10 +136,10 @@ Function ARRAY_RND(ByRef temp_array, target, ByRef temp_array2, wnum)
 
     n = rand_between(1, num_instances)
 
-    ctr = 0
+    Ctr = 0
     For a = 1 To UBound(temp_array, 1)
-        If temp_array(a) = target And temp_array2(a) <> wnum Then ctr = ctr + 1
-        If ctr = n Then
+        If temp_array(a) = target And temp_array2(a) <> wnum Then Ctr = Ctr + 1
+        If Ctr = n Then
             ARRAY_RND = a
             Exit Function
         End If
@@ -682,20 +682,20 @@ Function ARRAY_MULTIPLY(ByVal arr1, ByVal arr2, Optional formula = True)
 
     For x = 1 To a2_x_len ' Move across new array column
         For y = 1 To a1_y_len ' Move across new array rows
-            For c = 1 To a1_x_len ' Populate the cell
-                Debug.Print "X:"; x; "of"; a2_x_len; "Y:"; y; "of"; a1_y_len; "Cell entry: "; c; "of"; a1_x_len
+            For C = 1 To a1_x_len ' Populate the cell
+                Debug.Print "X:"; x; "of"; a2_x_len; "Y:"; y; "of"; a1_y_len; "Cell entry: "; C; "of"; a1_x_len
                 If formula = True Then
                     Debug.Print "Providing formula as output"
-                    If c = 1 Then new_array(y, x) = "SUM("
-                    new_array(y, x) = new_array(y, x) & CStr(array1(y, c)) & "*" & CStr(array2(c, x))
-                    If c < a1_x_len Then
+                    If C = 1 Then new_array(y, x) = "SUM("
+                    new_array(y, x) = new_array(y, x) & CStr(array1(y, C)) & "*" & CStr(array2(C, x))
+                    If C < a1_x_len Then
                         new_array(y, x) = new_array(y, x) & ","
                     Else
                         new_array(y, x) = new_array(y, x) & ")"
                     End If
                 Else
-                    If c = 1 Then new_array(y, x) = 0
-                    new_array(y, x) = new_array(y, x) + array1(y, c) * array2(c, x)
+                    If C = 1 Then new_array(y, x) = 0
+                    new_array(y, x) = new_array(y, x) + array1(y, C) * array2(C, x)
                 End If
             Next
         Next
@@ -830,56 +830,56 @@ Function UNIQUE(data_range, Optional unique_case = 0)
         temp_data = data_range
     End If
 
-    c = 0
+    C = 0
 
     If n_cols > 0 Then
         For a = 1 To n_rows
             For b = 1 To n_cols
                 If temp_data(a, b) <> "" Then
-                    If c > 0 Then
+                    If C > 0 Then
                         found_match = False
-                        For d = 1 To c
+                        For d = 1 To C
                             If temp_array(d) = temp_data(a, b) Then
                                 found_match = True
                                 Exit For
                             End If
                         Next
                         If found_match = False Then
-                            temp_array(c + 1) = temp_data(a, b)
-                            c = c + 1
+                            temp_array(C + 1) = temp_data(a, b)
+                            C = C + 1
                         End If
                     Else
                         temp_array(1) = temp_data(a, b)
-                        c = 1
+                        C = 1
                     End If
                 End If
             Next
         Next
     Else
         For a = 1 To n_rows
             If temp_data(a) <> "" Then
-                If c > 0 Then
+                If C > 0 Then
                     found_match = False
-                    For d = 1 To c
+                    For d = 1 To C
                         If temp_array(d) = temp_data(a) Then
                             found_match = True
                             Exit For
                         End If
                     Next
                     If found_match = False Then
-                        temp_array(c + 1) = temp_data(a)
-                        c = c + 1
+                        temp_array(C + 1) = temp_data(a)
+                        C = C + 1
                     End If
                 Else
                     temp_array(1) = temp_data(a)
-                    c = 1
+                    C = 1
                 End If
             End If
         Next
     End If
 
     If unique_case = 0 Then
-        UNIQUE = c
+        UNIQUE = C
     Else
         UNIQUE = temp_array(unique_case)
     End If

Form_CFATable.frx

@@ -1,4 +1,16 @@
 Attribute VB_Name = "GlobalVars"
+' Version 1.0.3:
+' Fixed a bug causing the Monte Carlo procedure to produce exactly the same dataset
+
+' Version 1.0.2:
+' Fixed the duplicates algorithm so that compares the two variable names that have been formatted to 8 characters or fewer using the "format_mplus" function
+' Modified the "format_mplus" algorithm for formatting the Mplus variable names.
+' Fixed a bug in the observed correlation tables that would not allow you to display variable names / labels.
+
+' Version 1.0.1:
+' Fixed bug in Fit Statistics tabular output where the DF and p were not displayed for the chi-square statistic
+' Fixed a bug in which MEANS/INTERCEPTS/THRESHOLDS were not properly loaded from the sample statistics for categorical variables
+
 ' Global variables
 
 Public MplusOutput, DataStructure
@@ -8,6 +20,7 @@ Public use_formula
 Public n_decimals     ' Number of decimal places (1, 2, 3)
 Public var_disp_mode  ' 0: display variable name only, 1: display variable label, 2: display variable label and [name]
 
+
 Sub GotoSettings()
     Call ResetDefaults
     Settings.Show

Form_FactorCorrelations.frx

@@ -81,7 +81,7 @@ Sub CreateDataFile(data_object, ByVal data_filename, Optional export_to = "Mplus
     ' If nreps > 1 then it generates a Monte Carlo dataset
 
     Dim file_path: file_path = ActiveWorkbook.Path
-    If file_path = "" Then file_path = MyDocsPath()
+    If file_path = "" Or Left(file_path, 4) = "http" Then file_path = MyDocsPath()
 
     If nreps > 1 Then ' Set up Monte Carlo file
         Open file_path & "\" & data_filename For Output As 1
@@ -96,6 +96,7 @@ Sub CreateDataFile(data_object, ByVal data_filename, Optional export_to = "Mplus
             Open file_path & "\" & STEM_FILE(data_filename) & a & ".csv" For Output As 1
             ActiveSheet.EnableCalculation = False
             ActiveSheet.EnableCalculation = True
+            data_object.RefreshDatastructure
         Else
             Open file_path & "\" & STEM_FILE(data_filename) & ".csv" For Output As 1
         End If
@@ -112,20 +113,20 @@ Sub CreateDataFile(data_object, ByVal data_filename, Optional export_to = "Mplus
 
         temp = ""
         For b = 1 To data_object.Cases_N
-            For c = 1 To data_object.Variables_N
-                temp_val = data_object.Dataset(b, c)
+            For C = 1 To data_object.Variables_N
+                temp_val = data_object.Dataset(b, C)
                 If temp_val = data_object.MissingValue And export_to = "R" Then
                     ' If there is missing data and you are exporting to R, then write NA instead
                     temp = temp & "NA"
                 Else
                     temp = temp & temp_val
                 End If
-                If c < data_object.Variables_N Then temp = temp & ","
+                If C < data_object.Variables_N Then temp = temp & ","
             Next
             Print #1, temp
             temp = ""
         Next
-    Close #1
+        Close #1
     Next
 
 End Sub
@@ -161,7 +162,7 @@ Sub CreateInputSyntax(data_object, _
 
     ' Locate the file path; if this fails, save to "My Documents"
     Dim file_path: file_path = ActiveWorkbook.Path
-    If file_path = "" Then file_path = MyDocsPath()
+    If file_path = "" Or Left(file_path, 4) = "http" Then file_path = MyDocsPath()
 
     Dim y2: y2 = 0
     lb = Chr(10)
@@ -619,25 +620,25 @@ lb = Chr(10)
     If InputForm_CFA.BCFA_CL = True Then
         n_ind = 0
         For a = 1 To DataStructure.ScaleInclude
-            For c = 1 To DataStructure.ScaleInclude
-                If c = 1 Then
+            For C = 1 To DataStructure.ScaleInclude
+                If C = 1 Then
                     temp_line = DataStructure.ScaleName(a, True) & " BY"
                 Else
                     temp_line = ""
                 End If
                 n_ind_line = 0
-                For b = 1 To DataStructure.ScaleIndicator(c, 0, True)
-                    If a <> c Then
+                For b = 1 To DataStructure.ScaleIndicator(C, 0, True)
+                    If a <> C Then
                         n_ind_line = n_ind_line + 1
                     End If
-                    temp_ind = format_mplus(DataStructure.ScaleIndicator(c, b, True))
+                    temp_ind = format_mplus(DataStructure.ScaleIndicator(C, b, True))
                     If Len(temp_line) + Len(temp_ind) < 75 Then
                         If Len(temp_line) > 0 Then temp_line = temp_line & " "
                         temp_line = temp_line & temp_ind
-                        If a <> c And b = 1 Then temp_line = temp_line & "*"
-                        If a = c And c > 1 And b = 1 Then temp_line = temp_line & "@1"
+                        If a <> C And b = 1 Then temp_line = temp_line & "*"
+                        If a = C And C > 1 And b = 1 Then temp_line = temp_line & "@1"
                     Else
-                        If a <> c Then
+                        If a <> C Then
                             temp_line = temp_line & " (L" & n_ind + 1
                             If n_ind_line > 1 Then
                                 temp_line = temp_line & "-L" & n_ind + n_ind_line - 1
@@ -654,15 +655,15 @@ lb = Chr(10)
 
                 model_syntax = model_syntax & temp_line
 
-                If a <> c Then
+                If a <> C Then
                     model_syntax = model_syntax & " (L" & n_ind + 1
                     If n_ind_line > 1 Then
                         model_syntax = model_syntax & "-L" & n_ind + n_ind_line
                     End If
                     model_syntax = model_syntax & ")"
                     n_ind = n_ind + n_ind_line
                 End If
-                If c = DataStructure.ScaleInclude Then model_syntax = model_syntax & ";"
+                If C = DataStructure.ScaleInclude Then model_syntax = model_syntax & ";"
                 model_syntax = model_syntax & lb
             Next
             model_syntax = model_syntax & lb

Form_FitStats.frx

@@ -16,16 +16,47 @@ Function format_mplus(ByVal orig_string)
         End If
         a = a + 1
     Loop
-
+    
+    ' Mode 1: Simply return the variable name without modification
     If Len(orig_string) <= 8 Then
         orig_string = Replace(orig_string, " ", "_")
         format_mplus = orig_string
         Exit Function
     End If
-
+    
     orig_string = auto_capital(orig_string)
     orig_string = Replace(orig_string, " ", "_")
 
+    ' Mode 2: If there 3 or more words, then create a shortened name based on all words
+    temp_array = Split(orig_string, "_")
+    If UBound(temp_array) >= 2 Then
+        Dim temp_array2()
+        ReDim temp_array2(LBound(temp_array) To UBound(temp_array))
+        cntr = 0
+        temp_array2 = ARRAY_POPULATE(temp_array2, "")
+        For a = 1 To 8
+            For b = LBound(temp_array) To UBound(temp_array)
+                temp = Mid(temp_array(b), a, 1)
+                If a = 1 Then
+                    temp = UCase(temp)
+                Else
+                    temp = LCase(temp)
+                End If
+                If cntr < 8 Then
+                    temp_array2(b) = temp_array2(b) & temp
+                    cntr = cntr + 1
+                End If
+            Next
+        Next
+        
+        format_mplus = ""
+        For a = LBound(temp_array2) To UBound(temp_array2)
+            format_mplus = format_mplus & temp_array2(a)
+        Next
+        Exit Function
+    End If
+    
+    ' Mode 3: Try to reduce the string
     ' Define a variable to count the length
     Dim len_cntr: len_cntr = 0
     Dim end_str
@@ -64,21 +95,10 @@ Function format_mplus(ByVal orig_string)
     ' Capitalise the first letter if it's not a capital. This is needed to parse the number of capitalised words.
 
     If Left(orig_string, 1) <> UCase(Left(orig_string, 1)) Then orig_string = UCase(Left(orig_string, 1)) & Right(orig_string, Len(orig_string) - 1)
-
-'    If item_id <> "" Then
-'        b = InStr(1, orig_string, item_id) - 1
-'        If b = 0 Then
-'            orig_string = Replace(orig_string, item_id, "")
-'            b = Len(orig_string)
-'        End If
-'    Else
-'        b = Len(orig_string)
-'    End If
-
 
-    For c = 1 To Len(orig_string) + 1
+    For C = 1 To Len(orig_string) + 1
         If Len(orig_string) > 2 Then
-            If Mid(orig_string, Len(orig_string) - c, 1) = "_" Then
+            If Mid(orig_string, Len(orig_string) - C, 1) = "_" Then
                 junk = junk + 1
             Else
                 Exit For
@@ -96,10 +116,6 @@ Function format_mplus(ByVal orig_string)
     num_lpw = Int(num_lr / num_wrds)
     'Debug.Print 4
 
-    'Debug.Print "'" & word_num(orig_string, 1, end_str) & "'"
-
-    'Debug.Print "Number of words: " & num_wrds & "; Num letters remaining: " & num_lr & ", Num letters per word: " & num_lpw
-
     If num_wrds > num_lr Then
         ' If the number of words more than the remaining number of letters, just use the first letter from each word
         For a = 1 To num_lr
@@ -423,21 +439,21 @@ Function CRONBACH_array(cellscopy, Optional format = True, Optional AboveDiag =
 
     ' Get covariances / correlations
     Dim covars()
-    c = 1
+    C = 1
 
     ReDim covars(1 To (num_v ^ 2 - num_v) / 2)
     num_cv = UBound(covars)
     For a = 1 To num_v
         For b = 1 To a
             If AboveDiag = False Then
                 If a <> b Then
-                    covars(c) = cellscopy(a, b)
-                    c = c + 1
+                    covars(C) = cellscopy(a, b)
+                    C = C + 1
                 End If
             Else
                 If a <> b Then
-                    covars(c) = cellscopy(b, a)
-                    c = c + 1
+                    covars(C) = cellscopy(b, a)
+                    C = C + 1
                 End If
             End If
         Next
@@ -525,7 +541,7 @@ Function t_to_r(t, n)
     t_to_r = (Abs(t) / t) * Sqr((t ^ 2) / ((t ^ 2) + n - 2))
 End Function
 
-Function crit_val_asterisk(r, n)
+Function crit_val_asterisk(R, n)
     If n = 0 Then
         crit_val_asterisk = ""
         Exit Function
@@ -538,9 +554,9 @@ Function crit_val_asterisk(r, n)
     r01 = t_to_r(t01, n)
     r001 = t_to_r(t001, n)
 
-    If Abs(r) > r05 Then crit_val_asterisk = "*"
-    If Abs(r) > r01 Then crit_val_asterisk = "**"
-    If Abs(r) > r001 Then crit_val_asterisk = "***"
+    If Abs(R) > r05 Then crit_val_asterisk = "*"
+    If Abs(R) > r01 Then crit_val_asterisk = "**"
+    If Abs(R) > r001 Then crit_val_asterisk = "***"
 End Function
 
 Function IsArrayAllocated(arr As Variant) As Boolean
@@ -692,3 +708,4 @@ Sub dump_matrix()
         Next
     Next
 End Sub
+

Form_ObsMatrices.frx

@@ -191,7 +191,7 @@ Sub WriteModelFit(MplusOutput, _
             Cells(start_y + offset_y, start_x + offset_x) = MplusOutput.ChiSq
             Cells(start_y + offset_y, start_x + offset_x + 1) = MplusOutput.DF
             Cells(start_y + offset_y, start_x + offset_x + 2) = format(MplusOutput.ChiSqP, ".000")
-            offset_x = offset_x + 1
+            offset_x = offset_x + 3
         End If
         If CFI = True And MplusOutput.CFI <> Empty Then
             If heading = True Then Cells(start_y, start_x + offset_x) = "CFI"