VBA VLOOKUP, instead of 'book1', as a string - excel

Question

EDIT: Posted full userform code
this is my userform
What I need to do, is load a csv, and a second csv essentially with updated price. I'm then using vlookup to match data. I just cant get my code to compile while I try to target MyVal2 with Module3.
Book1 is a remnant from recording a macro testing how it'd work.
Public MyVal1 As String 'AUS URL'
Public MyVal2 As String 'scrape'
Private Sub CommandButton1_Click()
Workbooks.OpenText Filename:=(MyVal1)
Workbooks.OpenText Filename:=(MyVal2)
Application.Run "Module2.AuscompDataSheet"
Application.Run "Module3.AuscompDataSheet"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub CommandButton2_Click()
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Please select the file."
' Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "All Files", "*.*"
' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
TextBox1 = .SelectedItems(1)
End If
End With
End Sub
Private Sub CommandButton3_Click()
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Please select the file."
' Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "All Files", "*.*"
' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
TextBox2 = .SelectedItems(1)
End If
End With
End Sub
Private Sub TextBox1_Change()
MyVal1 = UserForm1.TextBox1.Value
End Sub
Private Sub TextBox2_Change()
MyVal2 = UserForm1.TextBox2.Value
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
End Sub
MODULE 3:
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],[MyVal2]Sheet1!R2C1:R5C3,3,FALSE)"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D7"), Type:=xlFillDefault
Range("D2:D7").Select

Answer 1

I think the problem is that you are assigning the value of the variables myVal1 and MyVal2 by changing the assignment in the CommandButton1 instead of doing it in the textboxes and at the beginning of the code as a public declaration.
Private Sub CommandButton1_Click()
Dim MyVal2, MyVal1 as string
MyVal2 = UserForm1.TextBox2.Value
MyVal1 = UserForm1.TextBox1.Value
Workbooks.OpenText Filename:=(MyVal1)
Workbooks.OpenText Filename:=(MyVal2)
call AuscompDataSheet
call AuscompDataSheet
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub