Private Sub Param_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Param.Click
     EditParameters.Show()
End Sub

Public Class EditParameters
     Private Sub EditParameters_Load(ByVal ExcelPath As String)
          TxtBoxExcelPath.Text = ExcelPath
     End Sub
End Class