'1форма
' ---------------------------------------
 
public s as String   ' эту переменную нужно прочитать
...
...



Dim fSort as New FrmSort
fSort.showDialog(Me)
fSort.Dispose


' ---------------------------------------
 
 2  форма
'событие на кнопку

Dim x as frmSort
x = ctype(me.x,frmSort)
msgBox x.s

'1форма
' ---------------------------------------
 
'Главная форма имеет название frmSort1


public s as String   ' эту переменную нужно прочитать

Dim fSort2 as New FrmSort2
fSort2.showDialog(Me)
fSort2.Dispose()


'---------------------------------------
2 форма
'событие на кнопку

Dim x as frmSort1
x = ctype(me.x,frmSort1)
msgBox x.s

'твой пример
'меня сбило с толку что переменная owner и me.Owner это одно и тоже.

Dim owner as Frm1
owner = CType(Me.Owner, Frm1)
MsgBox(owner.s)

'Поэтому я писал так

Dim z as Frm1
z = CType(me.z, Frm1)
MsgBox(x.s)


'Отличие во второй строчке.