最小數字

找出最小數字：從指定目錄中的"in.txt"，讀入一數字字串，以逗號分隔，找出字串中最小字數。
輸出到指定目錄的"out.txt"。
(讀取指定目錄的in.txt, 請用 open app.path & "\in.txt" for input as #1 )
※今後皆以指定目錄形式完成VB

輸入範例：
26,56,78,99,15,13

輸出範例：
13


參照 http://chscvb.blogspot.com/2010/01/blog-post.html