REGISTRI - TogliReg

Function TogliReg(ByVal NomeRegistro As String) As String
Dim M As Long
M = InStr(NomeRegistro, "=")
If M <> 0 Then
TogliReg = Mid(NomeRegistro, M + 1, Len(NomeRegistro))
Else
TogliReg = NomeRegistro
End If

End Function