Function fun(a As string,b As string)dim x as stringdim y as stringdim m as stringdim n as stringdim num as Integerx=left(a,1)y=ringt(a,1)m=left(b,1)n=ringt(b,1)num=val(x)*1000+val(m)*100+val(y)*10+va...