Finaly I found a solution:
strAddress = ReadIni("EMail.ini","Address", "TO")
MsgBox strAddress
'******************************************************************************************************************************************************
Function ReadIni( myFilePath, mySection...