if sætning

If gyldignr1 Or gyldignr2 Or gyldignr3 = smsnr Then
=
If gyldignr1=smsnr Or gyldignr2=smsnr Or gyldignr3 = smsnr Then

2) hvordan overfører jeg en variabel fra form2 til form1 ?
Form1.variabelnavn = variabelnavn i form2

takker

Velbekomme og jeg takker for point.

Hej  downtownplaya.

En lille efternøler til det med variable i flere forme.  Jeg erklærer mine variable med 'Global' i et modul, så har de gyldighed i hele applikationen.
Et fyldigt eksempel:

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetDiskFreeSpace Lib "kernel32.dll" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Global netsti, wavsti, mp3sti, ampsti, billsti, tekststi, brandsti, linien As String
Global nu, tae, mel, gru, kod, alte, lyd, filnavn, sog, prod As String
Global num(100), tael(100), melo(100), grup(100), kode(100), alter(100) As String
Global musik(15, 100), labmusik(15), labb(20), ini(20), tretal As String
Global a, b, c, d, e, f, h, i, l, r, s, u, X, Y, z As Integer
Global ny, fornr As Integer

'transformering af baand.col til baand.dat og læsning i baand.dat
'----------------------------------------------------------------
Global linie, bd(21) As String

'mp3-afspilning
'----------------------------------------------------------------
Global mp As String
Global wa, minsek As Long

'funktionen: at gemme i musik.dat
'----------------------------------------------------------------
Global id, idu As String

'Funktion til at beregne tidsrum
Dim mdr As Variant

'Billedvisning
'-----------------------------------------------------------------
Global billfil, billfil2 As String
Global bi As Integer

'Beregning af varighed ud fra tællerstand
'-----------------------------------------------------------------
Global min, sek, seku, seku1, seku2, tal2 As Integer
Global basis(800, 2) As String

'----- placering på skærm ------------------
Global venstre, toppen As String

'----- navne-delen -----------------------------------------------
Global navn(15), idnr(1000) As String
Global lbnr As Long, filtal, zz As Integer

'--------- speciel søgning i koden
Global fra, ant As Integer

'--------- afvikling fra CD-rom -----------------
Global strdrev, rodsti As String

'---------- afspilning af video -------------------
Global video, cdsti, vidtit, vol As String

'---------- ændring af skærmbilledets størrelse ---------
Global bredde, grdbredde, hojde As Long

'------ spærring for oprettelse af eksisterende båndnr. --------
Global gemband, tilbage As Integer